[[20200409231548]]　『VBAで合計を出す方法』（きいろ）　ページの最後に飛ぶ

『VBAで合計を出す方法』（きいろ）

５０近い契約に関し、B列に税抜き金額、C列に消費税、D列に合計という表を出力し、最後の行にそれぞれの合計を出したいです。
最終行は変数rで求め、B列、C列はrを使い合計を出し、D列の合計は、「Bの合計＋Cの合計」の式を入れて出したいと思ったのですが、エラーで上手くいきません。

D列に関しても、変数rを使えば求められるのですが、なぜ下の式でエラーになるのかわからないので、教えていただければと思います。

ちなみに、VBA独学で学び始めて日が浅いため、その辺りを考慮に入れて回答いただけると幸いです。

Sub 合計()

    Dim r As Long
    r = Range("C1").End(xlDown).Row + 1
    Range("B" & r) = " 合計 "

Range("C" & r).Formula = "=SUM(C2:C" & (r - 1) & ")"

Range("D" & r).Formula = "=SUM(D2:D" & (r - 1) & ")"

Range("E" & r).Formula = "=SUM("C"&r:"D"&r)"

End Sub

※End Subの一つ手前でエラーが出ます。
宜しくお願いします。

＜使用 Excel：Excel2019、使用 OS：unknown ＞

 "=SUM(C" & r & ":D" & r & ")"

ですね。

（マナ） 2020/04/09(木) 23:39

マナさん

ありがとうございます！
試してみます！！
（きいろ） 2020/04/10(金) 08:18

コメント返信：