无法在公式中使用 LastCol 自动求和

Question

我在将 VBA 写入 Autosum 时遇到问题，其中列可能会不时增加或减少。以下面为例。我已将我的 LastCol 设置为查找最后一列，然后我想从该行的 B 列自动求和到最后一列以获得我的“总计”。我想尽可能避免使用 R1C1 公式。此外，RC[-4] 会根据电子表格上的列数而变化。

Sub AutoSum()

    Dim LastCol As Integer

    Sheets("Sheet1").Select
    LastCol = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

    Cells(2, LastCol1 + 1).Select
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,RC[-4]: RC[-1])"

End Sub

Answer 1

试一试：

Sub AutoSum()

    Dim LastCol As Integer

    With Sheets("Sheet1")

        LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column

        .Cells(2, LastCol1 + 1).Formula = "=SUBTOTAL(9,Offset(B2,0,0,1," & LastCol-1 & "))"

    End With

End Sub

运行以上代码后：