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

データ最終行の複数列にSUM関数で合計を作成する
サンプルコード
免責事項

データ最終行の複数列に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

ガレリアゲーミングノートPC 【 RTX 5050 / Core i7-14650HX / 16GB / 500GB 】 GALLERIA RL7C-R55-5N Windows 11 Home 15.6インチ 144Hz 動画編集ゲーム実況 18723-3494

GALLERIA RL7C-R55-5N 『Minecraft: Java ＆ Bedrock Edition for PC、PC Game Pass同梱版』【Core i7-14650HX / RTX 5050 / メモリ 16GB / 500GB SSD 】ガレリアゲーミングノートパソコン
■CPU：インテル Core i7-14650HX■グラフィック機能：NVIDIA GeForce RTX 5050 8GB Laptop GPU + インテル UHD グラフィックス (CPU内蔵)■メモリ：16GB (DDR5-4800 SO-DIMM)■ストレージ：500GB (M.2 NVMe Gen4)■ディスプレイ：15.6インチ非光沢 FHD液晶 (1920 x 1080ドット表示) / リフレッシュレート 144Hz
■OS：Windows 11 Home 64ビット■オフィスソフト：Office なし■Minecraftライセンス：Minecraft: Java ＆ Bedrock Edition for PC■PC Game Pass：PC Game Pass同梱版
■LAN：1Gb Ethernet対応LANポート x1■無線LAN：インテル Wi-Fi 6E (IEEE802.11 a/b/g/n/ac/ax)■Bluetooth：Bluetooth 5.3■サウンド：内蔵ステレオスピーカー / Sound Blaster Studio＋ / デュアルマイク■WEBカメラ：HD画質 WEBカメラ
■電源：ACアダプター (180W)■稼働時間：計測中■入出力ポート：USB3.2 Gen2 (Type-A) x1 USB3.2 Gen1 (Type-A) x1 USB3.2 Gen2 (Type-C、映像出力 DisplayPort1.4 対応、PD対応/65W～100W) x1 USB3.2 Gen2 (Type-C、映像出力 DisplayPort1.4 対応、PD非対応) x1 HDMI 2.1 Type A x1 マイク入力・ヘッドフォン出力共用端子(3.5mm 4極 CTIA)■サイズ：約 361(幅)×250(奥行)×32(高さ・ゴム足含む)mm■重量：約 2.3kg

Amazonで見る

最新の価格・在庫状況はAmazonでご確認ください。

免責事項

本記事のサンプルプログラムは、学習・参考用として掲載しているもので、動作や結果を保証するものではありません。利用する場合は、ご自身の環境に合わせて確認しながらお使いください。万が一トラブルや損害が発生した場合でも、当サイトでは責任を負いかねます。

できるExcelパーフェクトブック困った! &便利ワザ大全 Copilot対応 Office 2024/2021/2019 & Microsoft 365版

インプレス

Amazon

楽天

Yahoo!ショッピング

できるExcel マクロ&VBA Copilot対応

インプレス

Amazon

楽天

Yahoo!ショッピング