无法在公式中使用 LastCol 进行 AutoSum

Unable to AutoSum with LastCol in formula

我在将 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

试一试:

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

在运行上面的代码之后: