マクロで合計値を求める

質問

関数でいうSUM(A1:Z1)をマクロでやりたいのですが、やり方が良く分かりません。
range(\"A1\").value+range(\"B1\").value+… とやるのも面倒なので。
別な方法あったら教えてください。

回答No.1

GRIGO

繰り返し処理はいかが？

Dim intI As Integer
Dim intSum As Integer

'A1～J1までの合計を算出し、
'K1に設定
'intI が 1=A 2=B 3=C … 10=J
'Cells(行数,列数)
For intI = 1 To 10
intSum = intSum + Cells(1, intI)

Next intI

Cells(1, 11) = intSum