列中的累积总和

Question

我正在尝试编写一个VBA代码来运行可变大小矩阵的累积和，以输出到另一个工作表进行进一步分析。这些单元格需要偏移1行1列，并且新的顶行需要分配＆＃34; 0＆＃34;值。如下所示（通过手动计算完成）

我正在努力为此开发代码，但是我的内容如下所示。

'Private Sub LGMethod_Click()
'Declare Variables
    Dim i As Integer
    Dim J As Integer
'Clear Worksheet
    Worksheets("LG").Cells.Clear
'Loop to count and and analyse
    For i = 1 To Worksheets("Data").Cells(Rows.Count, "A").End(xlUp).Row
        For J = 1 To Worksheets("Data").Cells(1, Columns.Count).End(xlToLeft).Column
            Worksheets("LG").Cells(i + 1, J + 1) = Application.WorksheetFunction.Sum(Worksheets("Data").Range.Cells(1, i))

        Next
    Next
End Sub'

Answer 1

正如我从您的示例中看到的那样，您希望向下移动一行并在每个单元格中计算列上的累积总和。

insert