Как суммировать столбец после последней строки данных?

Question

Sub test   
    Dim VR As Long
    VR = Range("H" & Rows.Count).End(xlUp).Row
    Range("J" & Rows.Count).End(xlUp).Offset(2,0).Formula = "=sum(j2:J" & VR")"
end sub

Я пытаюсь подвести итог столбцу J, и VBA делает эту строку красной. Добавляемые значения начинаются с ячейки j2 и последней строки в столбце j с данными. Как исправить эту строчку?

Answer 1

Это должно сработать. По сути, это небольшая опечатка в вашей формуле. Добавлен и амперсанд.

Также я указал, на каких рабочих листах все это должно произойти, с переменной we.

Sub test()
 Dim ws as worksheet
 Dim VR as Long
 Dim rng as Range

 Set ws = Thisworkbook.Worksheets(“Sheet1”)
 With ws
     VR = .Cells(.Rows.Count, 8).End(xlUp).Row
 End with

 Set rng = ws.Cells((VR+1), 10)
 
 rng.Offset(2,0).Formula = “=SUM(J2:J” & VR & “)”

End sub