Excelで左から右に列を1つの列に積み重ねるにはどうすればよいですか？

複数の列があると仮定し、その作業は以下のスクリーンショットに示すように、左から右に列を1つの列に積み重ねることです。列を1つずつ手動で移動する以外に、Excelでこれを解決するためのコツはありますか？

VBAを使用して左から右に列を1つの列に積み重ねる

Kutools for Excelを使用して左から右に列を1つの列に積み重ねる

VBAを使用して左から右に列を1つの列に積み重ねる

Excelにはこの作業を処理できる組み込み関数はありませんが、VBAコードが役立ちます。

1. Alt +F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウで、挿入 > モジュールをクリックして新しい空白のモジュールを作成します。

2. 以下のコードをコピーしてモジュールに貼り付けます。

VBA: 列を1つに積み重ねる

Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select Columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
    Application.ScreenUpdating = True
    Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
    Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
    For xFNumC = 1 To xSRg.Columns.Count
        For xFNumR = 1 To xSRg.Rows.Count
            Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
            xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
            xI = xI + 1
        Next xFNumR
    Next xFNumC
Application.ScreenUpdating = True
End Sub

3. 実行するには F5 キーを押してコードを実行すると、ダイアログが表示され、1つに積み重ねたい列を選択できます。

4. クリック OK結果を配置するセルを選択します。

5. クリック OK 完了です。これで選択した列が1つの列に積み重ねられました。

Kutools for Excelを使用して左から右に列を1つの列に積み重ねる

ExcelにKutools for Excelがインストールされている場合、Transform Rangeユーティリティを使用してこの作業を処理できます。

Kutools for Excelをインストールした後、以下のように操作してください：

1. 積み重ねたい列を選択し、クリック Kutools > 範囲 > 範囲の変換.

2. 範囲の変換 ダイアログで、 範囲を単一行に変換 チェックボックスをオンにし、クリック Ok.

3. 表示されるダイアログで、結果を配置するセルを選択し、クリック OK.

これで列が単一行に変換されました。

4. 単一行を選択し、 Ctrl + C を押してコピーし、積み重ねた列を配置する別のセルを選択して、右クリックしてコンテキストメニューから 転置(T) を選択します。

これで単一行が積み重ねられた列に転置されました。