總表中的從循環變量

Question

我試圖用這個邏輯列範圍：

Range(Selection, Selection.End(xlUp)).Select 

在循環字符串。現在數據是由循環創建的，所以我試圖選擇上面的行，以及該列的表的所有行，並將SUM添加到下面的單元格中。

我正在使用一個循環，因爲表可以根據引用而改變，並且當數據被接收時，我添加一個新表。當我想在表格中添加一列並在下面添加它時，一切都很順利。電池總是返回0

此時

i = 6 
j = 13 

ws2.Cells(i , j).Value = Application.Sum _ 
    (Range(Cells(i, j - 1), Cells(i, j - 1).End(xlUp))) 

感謝您的諮詢！

Answer 1

下面是使用WorksheetFunction.Sum創建運行總的技術。

Sub AddRunningTotal() 

    Const FIRST_ROW = 2 
    Const SOURCE_COLUMN = 11 

    With Worksheets("Sheet2") 
     With .Range(.Cells(2, SOURCE_COLUMN), .Cells(.Rows.Count, SOURCE_COLUMN).End(xlUp)) 
      .Offset(0, 1).FormulaR1C1 = "=SUM(R2C[-1]:RC[-1])" 
      'Uncomment to replace the formulas with their values 
      '.Value = Value 
     End With 
    End With 

End Sub