エクセル 特定セルの足し算をするマクロ

質問

C列、D列、E列を足し合計をF列に記入するマクロを教えて下さい。
（3行目から値のある行まで。）

　A　B　　C　　D　　E　　 F
1
2
3　　　　　24　　16　　19　　59となる様に
4　　　　　35　　49　　41
5　　　　　22　　19　　72
6　　　　　・　　　・　　　・
7　　　　　・　　　・　　　・

宜しくお願いします。

回答No.4

imogasi

関数で十分で、VBAでも簡単なコードで出来るが、なぜこんなもの聞くのかな。
Sub test01()
d = Range("A65536").End(xlUp).Row
For i = 3 To d
s = 0
For j = 1 To 3
s = s + Cells(i, j)
Next j
Cells(i, "D") = s
Next i
End Sub

回答No.3

n-jun

ANo.1です。

＞マクロを実行するとC～F列の値全てが「0」となってしまいます。
こちらでは再現できませんので、そのマクロを提示して下さい。

回答No.2

mt2008

わざわざマクロでやる事は無いと思いますが、何か特別な理由があるのでしょうか？
F3に　=SUM(C3:E3)　と、入れて下にコピーでは駄目ですか。
C・D・E列が空白の時はF列も空白にしたいなら、
=IF(C12&D12&E12="","",SUM(C12:E12))　これをどうぞ。

回答No.1

n-jun

With Range("C3", Cells(Rows.Count, 3).End(xlUp)).Offset(, 3)
.Formula = "=SUM(C3:E3)"
.Value = .Value
End With

補足

回答有難う御座います。

マクロを実行するとC～F列の値全てが「0」となってしまいます。