如何將 Excel 中多個欄位由左至右堆疊成單一欄？

作者Sun修改日期2024-09-23

假設有多個欄位，目標是將這些欄位由左至右堆疊成單一欄（如下圖所示），除了手動逐一搬移欄位外，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

將 VBA 程式碼複製並貼上至模組中

3. 按下 F5 鍵執行程式碼後，將彈出對話方塊，供您選取要堆疊成單一欄的欄位。
執行程式碼以選取資料範圍

4. 點擊確定，並選取一個儲存格來放置結果。
VBA 程式碼用於選取儲存結果的儲存格

5. 點擊確定完成操作，所選欄位現已堆疊為單一欄。
所選欄位已堆疊成單一欄位

使用 Kutools for Excel 將欄位從左到右堆疊成單一欄

若您已在 Excel 中安裝 Kutools for Excel，即可使用 Transform Range 功能輕鬆完成此作業！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

安裝 Kutools for Excel 後，請依照下列步驟操作：

1. 選取欲堆疊的欄位，點擊 Kutools > 範圍 > Transform Range。
點擊 Kutools 的「轉換範圍」功能

2. 在 Transform Range 對話方塊中，勾選 Range to single row 核取方塊，再點擊確定。
勾選「範圍轉為單一列」核取方塊

3. 在彈出的對話方塊中，選取一個儲存格來放置結果，然後點擊確定。
選取一個儲存格以放置結果

這些欄位現已合併為單一欄位。
欄位已轉換為單一列

4. 選取該單一列，按下 Ctrl + C 進行複製，再選取另一個儲存格作為堆疊欄的貼上位置，於快捷選單中點擊右鍵並選擇 Transpose(T)。
複製該列並以「轉置」方式貼上

現在該單一欄已轉置為堆疊列。
單一列已轉置為堆疊欄位

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多