Excel で列の累積和（ランニングトータル）を計算するにはどうすればよいですか？

著者Xiaoyang変更日2025-10-10

データ分析においては、値が時間の経過やエントリの追加に伴ってどのように累積していくかを監視することが極めて重要となる場合があります。累積和（ランニングトータルとも呼ばれる）を使えば、数値のシーケンスにおける合計を継続的に追跡でき、新しいエントリが追加されるたびに自動的に更新されます。これは財務台帳、在庫管理、売上追跡など、段階的な合計が重要なあらゆる業務に特に役立ちます。本記事では、Excel ワークシートでランニングトータルを計算するための詳細なステップバイステップガイドに加え、実際の業務でよくあるシナリオに即した実用的なヒント、注意点、トラブルシューティングのアドバイスをご紹介します。

数式を使用して列の累積和またはランニングトータルを計算する

VBA コード – 動的データセットや大規模範囲向けに累積和の計算を自動化

数式を使用して列の累積和またはランニングトータルを計算する

Excel では、値が入力されるたびにランニングトータルを動的に計算するシンプルな数式を使って、列データの累積和を簡単に取得できます。

1．次の数式を入力してください：=SUM($B$2:B2)（例：数値が B 列の2 行目から始まる場合、セル C2 にこの数式を入力します）。下のスクリーンショットをご参照ください：

累積和を計算する数式を入力

2．Enterキーを押して数式を確定すると、そのセルにその行までの累積和が表示されます。この計算をさらに多くの行に適用するには、数式を含むセルを選択し、アクティブセルの右下隅にあるフィルハンドル（小さな四角）を必要なだけ下にドラッグして他のセルにコピーしてください。スクリーンショットをご参照ください：

数式を他のセルにドラッグしてコピー

注記：上記の数式はデフォルトで、B 列が空白の行にも最後に計算された合計値を表示し続けます。そのため、入力データの下にある結果を確認する際に混乱を招く可能性があります。レポートやダッシュボードなど、よりクリーンな表示が必要な場合は、隣接するセルに値がない場合に空白を返す以下の改良版数式をご活用ください：

=IF(B2=「」,"",SUM($B$2:B2))

この方法により、B 列に実際の入力値が存在する行にのみ、ランニングトータルが表示されます。下のスクリーンショットで、改良後の出力をご確認ください。

隣接するセルが空白の場合は、数式が何も表示しない

これらの数式を拡張する際は、参照範囲（$B$2:B2）が一貫していることを必ず確認してください。計算を開始する行が異なる場合は、それに応じて参照範囲を調整しましょう。データセットが大規模な場合は、Excel テーブルの使用をぜひご検討ください。Excel テーブルなら、データが増えても範囲を自動で調整してくれます。

KUTOOLS AI でExcel の魔法を解き放ちましょう

スマート実行：セル操作、データ分析、チャート作成をすべてシンプルなコマンドで実現します。
カスタム数式：ワークフローの効率化に役立つ、あなただけのカスタマイズ数式を生成します。
VBA コーディング：VBA コードを簡単に記述・実装できます。
数式の解釈：複雑な数式が簡単に理解できます。
テキスト翻訳：スプレッドシート内で言語の壁を乗り越えましょう！

AI 搭載のツールでExcel の機能をさらに強化しましょう。今すぐダウンロードして、これまでにない効率を体験してください！

VBA コード – 動的データセットや大規模範囲向けに累積和の計算を自動化

非常に大規模なデータ範囲、継続的に拡張されるデータセット、または複数のシートにわたる自動化が必要なユーザーにとって、VBA マクロは累積和を計算する効率的な代替手段です。VBA を使えば、数式を繰り返しドラッグする手間が省け、データ更新後に自動で再計算を行い、変化するデータ構造にも柔軟に対応できます。この方法は、基本的なマクロ操作に慣れた中級ユーザーにおすすめです。

1．まず、VBA エディターを開きます。開発ツールタブのVisual Basicをクリックしてください。表示されたMicrosoft Visual Basic for Applicationsウィンドウで、挿入から標準モジュールをクリックし、以下のコードをモジュールウィンドウに貼り付けてください。

Sub CalculateCumulativeSum()
    Dim selRange As Range
    Dim outputCol As Integer
    Dim i As Long
    Dim cumSum As Double
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set selRange = Application.Selection
    Set selRange = Application.InputBox("Select the range for running total calculation (single column):", xTitleId, selRange.Address, Type:=8)
    
    If selRange Is Nothing Then Exit Sub
    
    outputCol = selRange.Columns(selRange.Columns.Count).Column + 1
    cumSum = 0
    
    For i = 1 To selRange.Rows.Count
        If IsNumeric(selRange.Cells(i, 1).Value) And selRange.Cells(i, 1).Value <> "" Then
            cumSum = cumSum + selRange.Cells(i, 1).Value
            selRange.Cells(i, 1).Offset(0, 1).Value = cumSum
        Else
            selRange.Cells(i, 1).Offset(0, 1).Value = ""
        End If
    Next i
End Sub

2マクロを実行するには、ボタンをクリックするか、F5キーを押してください。表示されるプロンプトで、処理したいデータ範囲（1 列のみ）を選択すると、マクロがその列のすぐ右隣の列にランニングトータルを入力します。

この方法は、大規模または動的に変化するデータセットに特に効果的で、データが更新されるたびにマクロを再実行できます。ただし、マクロはセルの値を直接上書きするため、実行前に必ずデータのバックアップを取ってください。パフォーマンス上の理由から、すべての列を並べ替えたり、非連続な範囲に対してこのマクロを実行したりすることは避けてください。

マクロが期待通りの値を計算しない場合は、「範囲を選択してください」に数値データのみが含まれており、結合セルが存在しないことを確認してください。

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！

Office Tab の詳細はこちら。。。無料ダウンロード。。。

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
連携してさらにパワーアップ— Office アプリ全体で生産性が向上
30 日間のフル機能トライアル— 登録不要、クレジットカード不要
最高のお得感— 個別アドイン購入よりお得

Kutools for Office の詳細はこちら。。。無料ダウンロード。。。