Dynami c Диапазон в формуле VBA

Question

Я пытаюсь найти СУММУ последних 5 строк.

Это мой код:

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

Я получаю ошибку "несоответствие типа"

Спасибо за помощь!

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