使用长整型variables行VBA

我有我想用来总结变长度行的代码的下面的代码片段

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表示当前行。