从循环变量

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