使用Long to Sum变量行VBA

Question

我有以下代码片段，我希望用它来对可变长度行进行求和

Dim LR As Long
LR = ActiveSheet.Range("Total").Row

With Worksheets("Post Implementation Costs")
    .Range("AD" & LR).Formula = "=Sum("AD7:AD"& LR - 1)"
End With

如果LR = 15，我希望结果为=SUM(AD:AD14)但是目前它返回=Sum(AD7: & LR -1)

Answer 1

您有一点"个展示位置问题，请将现有的Formula行更改为：

.Range("AD" & LR).Formula = "=Sum(AD7:AD" & LR - 1 & ")"

Answer 2

如果您希望完全避免引用问题，可以使用R1C1表示法并将该行写为：

.Range("AD" & LR).FormulaR1C1 = "=Sum(R7C:R[-1]C)"

R7表示第7行，R[-1]表示当前行之前的行，C表示当前列。