公式中的动态范围 VBA

Question

我试图找到最后 5 行的总和。

这是我的代码：

子总和范围（）

Dim upperrang As Long
Dim lowerring As Long
Dim testi As Long

lowerring = Range("A1").End(xlDown).Row
upperrang = Range("A1").End(xlDown).Row - 5

testi = "=SUM(C& upperrang:C& lowerring)"
Range("D20").Value = testi

结束子

我得到的错误是“类型不匹配”

谢谢你的帮助！

Answer 1

总结最后 5 个条目：

Sub Test()

  Dim RngCnt As Long
  Dim I      As Long
  Dim Total  As Long

  RngCnt = Range("List").Count  #List is your Dynamic Range Name
  Total = 0

  For I = RngCnt To RngCnt - 4 Step -1
     Total = Total + Range("List").Cells(I, 1).Value
  Next I

End Sub

HTH