VBAで、可変する範囲の合計の出し方

質問

お世話になります。
エクセルＶＢＡで、可変する縦列の数字のデータが有、その合計値を
Ｂ２のセルに代入したいのですが、範囲はCurrentRegionで指定する
のですが、合計値の出し方の記述が分かりません。
どなたかご教授下さい。お願いします。

回答No.1

merlionXX · ベストアンサー

> 範囲はCurrentRegionで指定

質問文ではどこのCurrentRegionかわかりませんのでとりあえずA1基準のCurrentRegionとしてみました。
でもB2に入れるのにA1のCurrentRegionじゃまずいかも・・・。

Sub test01()
For Each c In ActiveSheet.Range("A1").CurrentRegion
Range("B2").Value = Range("B2").Value + c.Value
Next
End Sub

回答No.2

KenKen_SP

こんにちは。

ワークシート関数を使うと楽かつ高速ですよ。
MsgBox Application.Sum(Selection.CurrentRegion)