Excelで複数の列を1つのリストに結合するにはどうすればよいですか？

複数の列を1つの長いリストに結合または統合するには、通常、指定された列にデータを1つずつコピーして貼り付けることができます。しかし、ここではExcelでこのタスクを解決するためのいくつかの簡単な方法をご紹介します。

VBAコードを使用して複数の列を1つのリストに結合する

Kutools for Excelを使用して複数の列を1つのリストに結合する

VBAコードを使用して複数の列を1つのリストに結合する

列データを繰り返しコピーして貼り付けることなく、以下のVBAコードがこの作業を迅速かつ簡単に処理するのに役立つかもしれません。

1. ExcelでAlt + F11キーを押したままにすると、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 挿入 > モジュールをクリックし、次のマクロをモジュールウィンドウに貼り付けます。

VBAコード：複数の列を1つのリストに結合または統合する

Sub CombineColumns1()
'updateby Extendoffice
    Dim xRng As Range
    Dim i As Integer
    Dim xLastRow As Integer
    Dim xTxt As String
    On Error Resume Next
    xTxt = Application.ActiveWindow.RangeSelection.Address
    Set xRng = Application.InputBox("please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    If xRng Is Nothing Then Exit Sub
    xLastRow = xRng.Columns(1).Rows.Count + 1
    For i = 2 To xRng.Columns.Count
        Range(xRng.Cells(1, i), xRng.Cells(xRng.Columns(i).Rows.Count, i)).Cut
        ActiveSheet.Paste Destination:=xRng.Cells(xLastRow, 1)
        xLastRow = xLastRow + xRng.Columns(i).Rows.Count
    Next
End Sub

3. そして F5キーを押してこのコードを実行すると、結合したいデータ範囲を選択するように促すボックスが表示されます。スクリーンショットをご覧ください：

4. その後OKボタンをクリックすると、選択した列が次のスクリーンショットのように1つの列に統合されます：

ヒント: このVBAを実行すると、範囲の元のデータは消去されるので、事前に別の場所にコピーして保存することをお勧めします。

Kutools for Excelを使用して複数の列を1つのリストに結合する

Kutools for Excelをインストールしている場合、その「範囲の変換」機能を使用して、複数の列を1つの列または1つの行に結合することができます。

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

1. 1つのリストに結合したい列データを選択します。

2. 次に、 Kutools > 範囲 > 範囲の変換をクリックします。スクリーンショットをご覧ください：

3. 「範囲の変換」ダイアログボックスで、「 範囲を単一列に変換」オプションを選択し、 Okボタンをクリックします。スクリーンショットをご覧ください：

4. 表示された「範囲の変換」ボックスで、結果を出力したいセルをクリックします。スクリーンショットをご覧ください：

5. そしてOKボタンをクリックすると、選択した列が指定した場所に1つの列として結合されます。スクリーンショットをご覧ください：

ダウンロードと無料トライアル 今すぐ Kutools for Excel を！

デモ：Kutools for Excelを使用して複数の列を1つのリストに結合する