时间戳

首页 > 解决方案 > 使用excel宏添加连续数字并粘贴到空白单元格中

excel - 使用excel宏添加连续数字并粘贴到空白单元格中

问题描述

我有一组数字要添加并放置在下一个空白单元格中。例如A1toA11必须在 中相加A12。下一组也一样。我想要一个宏来执行这个。

在此处输入图像描述

标签： excelvba

解决方案

例如（根据您的示例数据）：

Sub Test()

Dim lr As Long
Dim rng As Range

With Sheet1 'Change according to your sheets CodeName

    'Get your current range
    lr = .Cells(.Rows.Count, 1).End(xlUp).Row
    Set rng = .Range("A1:A" & lr).SpecialCells(xlCellTypeConstants)

    'Loop through each section to sum it
    For Each area In rng.Areas
        area.Offset(area.Rows.Count).Resize(1).Value = Application.Sum(Area)
    Next

End With

End Sub

推荐阅读