序号填充最后求和

Question

我正在尝试创建一个宏来填充从 A1 开始到 A10 结束的从 0 到 9 的行值，它还必须使用相同的序列填充 B 到 E。我知道我必须使用 count 和 for 函数，以及 while 来增加计数值，但我根本无法实现它

附上宏必须做的图片 希望你能帮助我，我很绝望 问候！

Answer 1

• 使用

  For

  循环填充数组
• 一次性将输出写入工作表
• 使用

  SUM

  公式获取汇总值

Option Explicit

Sub Demo()
    Dim i As Long, arr()
    Const START_CELL = "A1" ' modify as needed
    Const ROW_CNT = 11
    Const COL_CNT = 5
    Const COL_SUM = 9 ' Col for sum
    ReDim arr(ROW_CNT - 1, 0)
    For i = 0 To ROW_CNT - 1
        arr(i, 0) = i
    Next
    Range(START_CELL).Resize(ROW_CNT, COL_CNT).Value = arr
    With Cells(1, COL_SUM).Resize(ROW_CNT)
        .FormulaR1C1 = "=SUM(RC[-8]:RC[-1])"
        ' convert formulas to value if needed
        .Value = .Value
    End With
End Sub