Excelで配列テーブルをリストテーブルに迅速に変換するにはどうすればよいですか？

配列テーブル（クロス表）があると仮定すると、この配列テーブルをリストテーブルに変換するのは難しい作業ではないかもしれません。データを一つずつ入力することで変換できます。しかし、複数の配列テーブルをリストテーブルに変換する必要がある場合、手動での方法は適切な解決策とは言えません。このチュートリアルでは、Excelで配列テーブルをリストテーブルに迅速に変換できる便利な方法を紹介します。

ピボットテーブルを使用して配列テーブルをリストテーブルに変換

VBAを使用して配列テーブルをリストテーブルに変換

Kutools for Excelを使用して配列テーブルをリストテーブルに変換

ピボットテーブルを使用して配列テーブルをリストテーブルに変換

ピボットテーブルを利用して配列テーブルをリストに変換し、それを範囲としてコピーすることができます。

1. Alt + D を同時に押してから、 P キーを押して「 ピボットテーブルおよびピボットチャートウィザード 」ダイアログを有効にし、「 複数の統合範囲 」と「 ピボットテーブル 」オプションをチェックします。スクリーンショットをご覧ください：

2. 「次へ」をクリックしてウィザードのステップ 2aに進み、「ページフィールドを作成します」オプションをチェックします。スクリーンショットをご覧ください：

3. 「 次へ 」をクリックして ウィザードのステップ 2bに進み、配列範囲を選択して「 すべての範囲 」リストに追加します。スクリーンショットをご覧ください：

4. 「 次へ 」をクリックして最後のステップに進み、必要なオプションをチェックします。スクリーンショットをご覧ください：

5. 「 完了 」をクリックすると、ピボットテーブルが作成されます。「 総計」の交差セルに移動し、ダブルクリックすると、新しいワークシートにリスト形式のピボットテーブルが作成されているのが確認できます。スクリーンショットをご覧ください：

6. リスト形式のピボットテーブルを選択し、右クリックして「 テーブル > 範囲に変換 」を選択します。スクリーンショットをご覧ください：

これで配列テーブルがリストテーブルに変換されました。

VBAを使用して配列テーブルをリストテーブルに変換

以下のようなVBAを使用して配列テーブルをリストテーブルに変換できます。以下の手順を行ってください：

1. Alt + F11 を押して Microsoft Visual Basic for Applications ウィンドウを有効にします。

2. 「挿入」>モジュールをクリックし、下記のVBAコードを新しいモジュールウィンドウに貼り付けます。

VBA: 配列テーブルをリストに変換

Sub ConvertTableToList()
'UpdatebyEntendOffice20160429
    Dim I As Long
    Dim xCls As Long
    Dim xRg As Range
    Dim xSaveToRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select Array Table:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSaveToRg = Application.InputBox("Select a range(cell) to put the list table", "Kutools for Excel", , , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    Set xSaveToRg = xSaveToRg.Cells(1)
    xCls = xRg.Columns.Count - 1
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        xSaveToRg.Offset((I - 1) * xCls).Value = xRg.Cells(I, 1).Value
        xSaveToRg.Offset((I - 1) * xCls, 1).Resize(xCls).Value = _
                        Application.WorksheetFunction.Transpose(xRg.Cells(I, 2).Resize(1, xCls))
    Next
    Application.ScreenUpdating = True
End Sub

3. そして F5 キーを押してVBAを実行すると、ヘッダーを除いた配列テーブルを選択するためのダイアログが表示されます。スクリーンショットをご覧ください：

4. 「 OK 」をクリックして次のダイアログに進み、リストテーブルを出力するセルを選択します。スクリーンショットをご覧ください：

5. 「 OK」をクリックすると、配列テーブルがリストに変換されます。

ヒント：

上記のセルに基づいて空白セルを埋めたい場合は、以下のように操作してください：

1. Kutools for Excel -- 便利なツールをインストールしてから、「 Kutools > 挿入 > 空白セルを埋める」をクリックします。スクリーンショットをご覧ください：

2. 「 空白セルを埋める 」ダイアログで、「 基準値に基づく 」と「 下方向 」オプションをチェックします。スクリーンショットをご覧ください：

3. 「 OK 」または「 適用」をクリックすると、空白セルが上記の値に基づいて埋まります。

空白セルを埋めるについての詳細はこちらをクリックしてください。

Kutools for Excelを使用して配列テーブルをリストテーブルに変換

上記の方法が十分簡単でない場合、ここでは便利なツールである Kutools for Excel をご紹介します。その「 テーブルの次元を変換」機能を使用すると、配列テーブルとリストテーブル間を簡単に迅速に変換できます。

無料で Kutools for Excel をインストールした後、以下の手順を実行してください：

1. 変換したい配列テーブルを選択し、「 Kutools > 範囲 > テーブルの次元を変換」をクリックします。スクリーンショットをご覧ください：

2. 次に「 テーブルの次元を変換 」ダイアログで、「二次元テーブルを一次元テーブルに変換」オプションをチェックし、リストテーブルを出力する範囲を選択します。スクリーンショットをご覧ください：

3. 「 OK」をクリックすると、配列テーブルがリストテーブルに変換されます。

テーブルの次元を変換についての詳細はこちらをクリックしてください。