Excel2003最終行の下にsum(A2:Ax)

質問

A2からAx(ｘはデータの最終行で可変）までの数値をA(x+1)のセルに「=sum(A2:Ax）」という式を代入するマクロを作成したいのですが、どのように書けば良いでしょうか？
条件としては、

1.A2からAxまでは全て数字が入っている
2.ただし、０で数字が入っていない場合がある

です。

回答No.2

keithin · ベストアンサー

sub macro1()
range("A65536").end(xlup).offset(1).formular1c1 = "=SUM(R2C:R[-1]C)"
end sub
でいいです。

回答No.1

tom04

こんにちは！
一例です。

Sub test()
Dim i As Long
i = Cells(Rows.Count, 1).End(xlUp).Row
Cells(i + 1, 1) = WorksheetFunction.Sum(Range(Cells(2, 1), Cells(i, 1)))
End Sub

こんな感じではどうでしょうか？m(__)m