ピボットテーブルに複数のフィールドを追加するにはどうすればよいですか？

著者Xiaoyang変更日2025-09-09

ピボットテーブルを作成する際、通常はフィールドを1 つずつ「行ラベル」または「値」エリアにドラッグします。フィールドが多数ある場合、「行ラベル」としていくつかを追加するのは簡単ですが、残りすべてを「値」エリアに追加するのは時間がかかることがあります。こうしたとき、残りのすべてのフィールドをワンクリックで「値」エリアに追加する迅速な方法はあるでしょうか？

VBA コードを使用して PivotTable の値エリアに複数のフィールドを追加する

VBA コードを使用して PivotTable の値エリアに複数のフィールドを追加する

Excel には現在、フィールドリストパネルに「すべて選択」チェックボックスのようなネイティブ機能がなく、ワンクリックで残りのすべてのフィールドを直接「値」エリアに追加することはできません。ただし、シンプルな VBA マクロを使えば、この操作を効率的に実現できます。この方法は、同じ処理を頻繁に繰り返す必要がある場合や、大量のデータフィールドを扱う際に特に役立ちます。以下に、この方法を適用するための詳細な手順と注意点を示します。

1。PivotTable を作成した後、通常のドラッグ＆ドロップ操作で「行ラベル」として使用したいフィールドを追加します。集計対象となる他のフィールドは、「レポートに追加するフィールドを選択」セクションでチェックを外しておきましょう。参考までに、下記のスクリーンショットをご確認ください。

行ラベルフィールドを追加

2。ALT + F11キーを押して、Microsoft Visual Basic for Applicationsエディタウィンドウを開きます。あるいは、Excel リボンの開発タブからVisual Basicをクリックしてもアクセスできます。正しいワークブックで作業していることを確認してください。

3。VBA ウィンドウで、挿入 > 標準モジュールを選択して新しいモジュールを作成し、以下の VBA コードをモジュールウィンドウにコピー＆ペーストしてください。

VBA コード：アクティブワークシートの PivotTable の値エリアに複数のフィールドを追加する

Sub AddAllFieldsValues()
'Update 20141112
    Dim pt As PivotTable
    Dim I As Long
    For Each pt In ActiveSheet.PivotTables
        For I = 1 To pt.PivotFields.Count
            With pt.PivotFields(I)
              If .Orientation = 0 Then .Orientation = xlDataField
            End With
        Next
    Next
End Sub

4。次に、F5キーを押してマクロを実行するか、VBA エディタのツールバーにある「実行」ボタンをクリックしてください。このマクロは、現在のワークシートに含まれるすべての PivotTable を処理し、「行ラベル」または「列」にまだ追加されていないフィールドを自動的に「値」エリアに追加します。これにより、利用可能なすべてのデータフィールドが PivotTable 内に集計値として表示され、包括的な分析を瞬時に行えるようになります。参考までに、下記のスクリーンショットをご覧ください。

複数のフィールドを追加するVBAコードを実行

注記：このマクロは実行時にアクティブワークシート上のすべてのピボットテーブルに変更を適用します。複数のピボットテーブルがあり、そのうち1 つだけを更新したい場合は、該当するピボットテーブルを一時的に別のシートに移動することをご検討ください。VBA を実行する前には、必ず作業内容を保存してください。マクロによる変更は取り消せない場合があります。また、このマクロは非数値データを含むなど数値集計に適さないフィールドも含め、残りのすべてのフィールドを追加しようと試みるため、集計エラーが発生したり、意味のない結果が表示される可能性があります。

素晴らしい！Excel でChrome、Edge、Firefox、Safari のような効率的な Tabs をご利用いただけます！
毎日数千回のマウスクリックを削減し、50% もの時間を節約できます！

ワークブック内のすべてのピボットテーブルを一覧表示するにはどうすればよいですか？

ワークブック内にピボットテーブルが存在するか確認するには、どうすればよいですか？

最高の 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％も向上させ、毎日数百回ものマウスクリックを削減します！