总表中的从循环变量

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