雑記

Excel VBA 複数列にSum関数で合計を作成する 

© UsaNekoSanpo

Copyright © 2019-2021 UsaNekoSanpo All Rights Reserved.

データ最終行の複数列にSUM関数で合計を作成する 

うさこちゃん
うさこちゃん

VBAでSum関数をセルにセットして複数列にコピーする方法です。
このサンプルはデータ最終行の複数列にSUM関数で合計を作成します。

サンプルコード

うさこちゃん
うさこちゃん

Sum関数を「C11」いれて、「C11」のSum関数を「D11~G11」にコピーします。

例:「D11」には「=SUM(D2:D10)」が入ります。

    Dim ObjThisSh  As Object
    Dim StrSum     As String
    Dim RowMax     As Long
    Set ObjThisSh = ThisWorkbook.Sheets("Sheet1")
    
    StrSum = "=SUM(C2:C10)"                '2行目から10行目を合計する

    With ObjThisSh

         RowMax = .Range("B1").End(xlDown).Row + 1 '合計追加行取得
            
        .Range("B" & RowMax).Value = "合計"
        
        .Range("C" & RowMax).Formula = StrSum  'SUM関数を「C11」入れる

        .Range("C" & RowMax).AutoFill Destination:=.Range("C" & RowMax).Resize(1, 5)  'D11~G11にコピー
    End With

    Set ObjThisSh = Nothing
ExcelVBA逆引き大全 600の極意 Office365/2019/2016/2013/2010対応

ExcelVBAを仕事で使う際、「あれって、どうやるんだったっけ?」と困った時にサッと使うための逆引きテクニック集です。「コピペ使用に耐えうるサンプル」「スクショ画像を交えての丁寧な説明」「構文についてだけの情報もセットになっている」「関連するテクニックについての情報もすぐに引ける」という4つの条件を満たした情報をネットで探すのは非常に困難。デスクの片隅に常備したい1冊です。

できる大事典 Excel VBA 2019/2016/2013&Microsoft 365(サンプルファイル・無料電子版付)

VBAを使ってコードを記述するには、プログラミングの知識や基本構文の理解などが必要です。しかし、基本的な概念や仕組みだけを覚えても、VBAを使って柔軟にプログラムを記述するのはなかなか難しいもの。自分の思い通りにプログラムを記述するには、使用したい機能の構文や、構文を記述する際の設定項目なども知ることが必要です。
992ページという大ボリュームに、Excel VBAを使ったあらゆる操作を凝縮しました。この1冊をお持ちいただければどんな場面でもすぐに役立つはず。クラスモジュールを利用したプログラムの作成方法や、Webスクレイピングを実行するVBAの記述方法など、高度な内容も解説しているため、一歩先を進んだ応用的な操作をしてみたい中級者の方にもおすすめの1冊です。

うさねこ散歩
タイトルとURLをコピーしました