如何在 Excel 中快速將多列堆疊成一列？

在 Excel 中，「文字轉欄」功能可以根據分隔符號將一個儲存格拆分為多列，但有沒有辦法將多列堆疊成一列，如下方截圖所示呢？本文將介紹一些快速解決此問題的技巧。

使用公式將多列堆疊成一列

使用 VBA 將多列堆疊成一列

使用「轉換區域」將多列堆疊成一列

使用公式將多列堆疊成一列

1. 選擇您要堆疊的區域，然後前往名稱框為該區域命名，並按下 Enter 鍵。請參閱截圖：

2. 然後選擇一個空白儲存格來放置結果，輸入此公式 =INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1)，按下 Enter 鍵並向下拖動填滿控制點，直到顯示錯誤訊息為止。請參閱截圖：

使用 VBA 將多列堆疊成一列

這裡有一段 VBA 程式碼也可以幫助您。

1. 按下 Alt + F11 鍵以顯示 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，將以下程式碼貼到模組中。

VBA：將多列堆疊成一列

Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. 按下 F5 鍵執行程式碼，會彈出一個對話框讓您選擇源數據，然後點擊 確定，再選擇一個儲存格來放置結果。請參閱截圖：

4. 點擊 確定。現在這些列已經被堆疊成一列了。

使用「轉換區域」將多列堆疊成一列

應用 Kutools for Excel 的「轉換區域」工具也能幫助您快速解決這個問題。

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

1. 選擇您使用的列數據，然後點擊 Kutools > 區域 > 轉換區域。請參閱截圖：

2. 在「轉換區域」對話框中，勾選「區域轉單列」選項，然後點擊 確定，再選擇一個儲存格來放置結果。請參閱截圖：

3. 點擊 確定。現在這些列已經被堆疊成一列了。