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

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

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

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

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

列データのコピーと貼り付けを繰り返すことなく、次のVBAコードを使用すると、このジョブをすばやく簡単に処理できます。

1. 押したまま Altキー+ F11 Excelでキーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

2. クリック インセット > モジュール、次のマクロをに貼り付けます モジュール 窓。

VBAコード：複数の列をXNUMXつのリストに結合またはマージします

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 このコードを実行するためのキーを押すと、プロンプトボックスが表示され、XNUMXつの列に結合するデータ範囲を選択するように通知されます。スクリーンショットを参照してください。

4。 そして、 OK 次のスクリーンショットに示すように、ボタンをクリックすると、選択した列がXNUMXつの列にのみマージされます。

ヒント：このVBAを実行すると、範囲の元のデータがクリアされます。最初にそれらをコピーして別の場所に保存することをお勧めします。

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

あなたがインストールしている場合 Kutools for Excel、 その 変換範囲 ユーティリティは、複数の列をXNUMXつの単一の列または単一の行に結合するのに役立ちます。

インストールした後 Kutools for Excel、次のようにしてください。

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

2。 次に、をクリックします クツール > レンジ > 変換範囲、スクリーンショットを参照してください：

3。 の中に 変換範囲 ダイアログボックスで 単一列までの範囲 オプションをクリックして Ok ボタン、スクリーンショットを参照してください：

4。 以下で飛び出しました 変換範囲 ボックスで、結果を出力するセルをクリックします。スクリーンショットを参照してください。

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

ダウンロードして無料トライアル 今すぐExcel用Kutools！

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