如何在 Excel 中將列從左到右堆疊成一列？

假設有多個列，任務是將這些列從左到右堆疊成單一列，如下方截圖所示。除了手動逐一移動列之外，有沒有其他技巧可以在 Excel 中解決這個問題呢？

使用 VBA 將列從左到右堆疊成一列

使用 Kutools for Excel 將列從左到右堆疊成一列

使用 VBA 將列從左到右堆疊成一列

在 Excel 中，沒有內建函數可以處理此任務，但 VBA 程式碼可以幫助您完成。

1. 按下 Alt +F11 鍵，在 Microsoft Visual Basic for Applications 視窗中，點擊 插入 > 模組 來創建一個新的空白模組。

2. 複製並將以下程式碼貼到模組中。

VBA：將列堆疊為一列

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 鍵執行程式碼，會彈出一個對話框讓您選擇要堆疊的列。

4. 點擊 確定，選擇一個儲存格放置結果。

5. 點擊 確定 完成。現在所選的列已經被堆疊成一列了。

使用 Kutools for Excel 將列從左到右堆疊成一列

如果您已在 Excel 中安裝了 Kutools for Excel，您可以使用 轉換區域 功能來處理此任務。

安裝 Kutools for Excel 後，請按照以下步驟操作：

1. 選擇您想堆疊的列，點擊 Kutools > 區域 > 轉換區域。

2. 在 轉換區域 對話框中，勾選 區域轉單行 核取方塊，然後點擊 確定。

3. 在彈出的對話框中，選擇一個儲存格放置結果，然後點擊 確定。

現在列已經被轉換成單一行了。

4. 選擇單一行，按下 Ctrl + C 複製它，然後選擇另一個要放置堆疊列的儲存格，右鍵點擊並在上下文選單中選擇 轉置(T)。

現在單一行已被轉置為堆疊列。