[[20151111174819]]　『最終行にVBAで合計を入れたい(複数列)』（柳田）　ページの最後に飛ぶ

『最終行にVBAで合計を入れたい(複数列)』（柳田）

閲覧ありがとうございます。

　 A　　　B　…　K　　L　　　M
1 2015年11月

2 氏名番号　1回　 2回　 3回

3 aaa 　 oo　　 71 　80 　　 84

4 uuu 　oo　　　79 　 55 　　 90

5 yyy 　oo　　　68 　　67 　　 88

               ・
　　　　　　　 ・
 　　　　　　　・

このような行数は可変のエクセル表でC～E列の最終行に合計を出したいです。
この作業をマクロでルーティンとしております。

１列のみの合計でしたら

    With Range("K2")
        .End(xlDown).Offset(1, 0) = _
            "=SUM(" & Range(.Address, .End(xlDown)).Address(False, False) & ")"
    End With

としてますが、3列分となると勉強不足でわかりません。
恐縮ですが、ご教授願えませんでしょうか。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 複数セル領域に対して式を一挙にセットすることが可能です。
 その場合、式の文字列は最初のセルに対する数式文字列にします。

 Sub Test1()
    With Range("K2").End(xlDown).Offset(1, 0)
        .Resize(, 3).Formula = "=SUM(" & Range("K3", Range("K" & Rows.Count).End(xlUp)).Address(False, False) & ")"
    End With

 End Sub

 Sub Test2()
    With Range("A2").End(xlDown).Offset(1, 0).EntireRow
        .Range("K1:M1").FormulaR1C1 = "=SUM(r3c:r[-1]c)"
    End With

 End Sub

（β） 2015/11/11(水) 18:41

βさま
ありがとうございます！！
勉強になります。
迅速にご解答頂き非常に助かりました。
（柳田） 2015/11/12(木) 09:16

コメント返信：

[ 一覧(最新更新順) ]

[[20151111174819]] 『最終行にVBAで合計を入れたい(複数列)』（柳田） ページの最後に飛ぶ

[[20151111174819]]　『最終行にVBAで合計を入れたい(複数列)』（柳田）　ページの最後に飛ぶ