Excel でクロス集計表 (2 次元表) をリストに変換するにはどうすればよいでしょうか?

Excel でクロス集計表 (2 次元表) をリスト表 (1 次元表) に変換することは、さまざまなデータ分析タスクで必要になる場合があります。行見出しと列見出しの両方がある表があり、それを単純なリストに簡略化する必要がある場合、この変換を実現する効果的な方法があります。このガイドでは、Excel でクロス集計表を、より管理しやすいリスト形式にすばやく簡単に変換する方法を説明します。

• クロステーブルをVBAを使用してExcelのリストに変換する
• Kutools forExcelを使用してクロステーブルをExcelのリストに変換する

クロステーブル（行見出しと列見出し付き）		リストテーブル（1次元テーブル）

クロステーブルをVBAを使用してExcelのリストに変換する

次の VBA マクロを使用すると、アクティブなワークシート内のすべてのクロス テーブルをフラット リストにすばやく変換できます。

ステップ1： 他の + F11 Excelでキーを押すと、Microsoft Visual Basic forApplicationsウィンドウが開きます。

ステップ2：クリック インセット > モジュール、モジュールウィンドウに次のマクロを貼り付けます。

リストする転置クロス集計テーブルのVBA：

Sub ConvertTableToList()
'Updated by Extendoffice 2024/07/15
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = False
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step -1
.Rows(i + 1).Insert
.Cells(i + 1, 2).Value = .Cells(i, j).Value
.Cells(i, j).Value = ""
Next j
Next i
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub
  

ステップ3： F5 このマクロを実行するためのキー。

すると、次のスクリーンショットのように変換されたリストが表示されます。

Kutools forExcelを使用してクロステーブルをExcelのリストに変換する

あなたが持っている場合 Kutools for Excel インストールすると、使用できます 転置テーブルの寸法 クロステーブルをフラットリストに素早く変換するツール。

ステップ 1: リストに変換するテーブルを選択します。

ステップ2： クツール >レンジ > 転置テーブルの次元。 次のスクリーンショットを参照してください。

ステップ3： 転置テーブルの寸法 ダイアログボックスで リストするクロステーブル オプションを選択し、 結果の範囲 をクリックすると

ステップ4： OK

次に、次のスクリーンショットのように、元のテーブルがフラットリストに変換されていることがわかります。

転置テーブルの寸法 リストをクロス集計表に変換することもできます。詳細については、 転置テーブルの寸法.

関連記事：

• フラットリストを2次元クロステーブルに変換する