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

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

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

です。

No.2 ベストアンサー 回答者： keithin 回答日時： 2012/03/02 09:56

sub macro1()

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

No.1 回答者： tom04 回答日時： 2012/03/02 09:04

こんにちは！

一例です。

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