如何對最后一行數據后的列求和？

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