公式中的动态范围 VBA

Question

I am trying to find the SUM of the last 5 rows.

This is my code:

Sub SumRange()

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

End Sub

The error i'm getting is "type mismatch"

Thanks for your help!

Answer 1

To sum the last 5 entries:

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