如何在 Excel 中將多個欄位合併成一個列表？

要將多個欄位合併或組合成一個長列表，通常您可以逐一手動複製並將欄位數據粘貼到指定的欄位中。但這裡我要介紹一些快速技巧，幫助您在 Excel 中完成這個任務。

使用 VBA 程式碼將多個欄位合併成一個列表

使用 Kutools for Excel 將多個欄位合併成一個列表

使用 VBA 程式碼將多個欄位合併成一個列表

無需重複複製和粘貼欄位數據，以下 VBA 程式碼可以幫助您快速輕鬆地處理此工作。

1. 在 Excel 中按住 Alt + F11 鍵，這將打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，然後在模組視窗中粘貼以下宏代碼。

VBA 程式碼：合併或多個欄位轉換為單一列表

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 鍵執行此程式碼，會彈出一個提示框，提醒您選擇想要合併為單一欄位的資料區域，請參見截圖：

4. 然後點擊 確定 按鈕，所選的欄位已經被合併為單一欄位，如下方截圖所示：

提示：運行此 VBA 後，範圍內的原始資料將被清除，最好先將它們複製並保存到另一個位置。

使用 Kutools for Excel 將多個欄位合併成一個列表

如果您已安裝 Kutools for Excel，其 轉換區域 功能可以幫助您將多個欄位合併成單一欄位或單一行。

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

1. 選擇您想合併為一個列表的欄位數據。

2. 然後點擊 Kutools > 區域 > 轉換區域，請參見截圖：

3. 在 轉換區域 對話框中，選擇 區域轉單列 選項，然後點擊 確定 按鈕，請參見截圖：

4. 在隨後彈出的 轉換區域 框中，點擊您想輸出結果的單元格，請參見截圖：

5. 然後點擊 確定 按鈕，您所選的欄位已經被合併到您指定位置的單一欄位中。請參見截圖：

下載並免費試用 立即體驗 Kutools for Excel！

演示：使用 Kutools for Excel 將多個欄位合併成一個列表