Question

我的VBA技能很弱，我感谢任何人都可以提供帮助。如果这个问题太基础，我会道歉......

我有一个excel文档，其中需要汇总的数量未知，总和需要在最终金额之后的最后一个单元格中。到目前为止，这就是我所拥有的，

Dim rRecoveryAmt As Long

    rRecoveryAmt = Cells(Cells.Rows.Count, "AN").End(xlUp).Row + 1
    Range("AN" & rRecoveryAmt) = WorksheetFunction.Sum(Range("AN2:AN" & rRecoveryAmt - 1))

没有收到错误，但也没有得到任何结果。我错过了一些明显的东西吗？

由于

Answer 1

您的代码对我来说是正确的。如果您尝试将实际公式放入，可以使用：

Dim rRecoveryAmt As Long

    rRecoveryAmt = Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1
    Range("A" & rRecoveryAmt).Formula = "=Sum(A2:A" & rRecoveryAmt - 1 & ")"

否则，正如Andy G所说，你可以通过完全限定对象来确定它在正确的表格上：

Sheets("Sheetname").cells(...

在VBA中汇总一列。

1 个答案: