如何在Excel中將多列合并為一個列表？

要將多個列合并或合并到一個長列表中，通常可以將列數據一一復制并粘貼到指定列中。 但是，在這里，我可以向您介紹一些快速技巧來解決Excel中的這一任務。

使用VBA代碼將多列合并到一個列表中

將多列組合成一個列表 Kutools for Excel

使用VBA代碼將多列合并到一個列表中

無需重復復制和粘貼列數據，下面的VBA代碼可以幫助您快速輕松地處理此工作。

1. 按住 Alt + F11鍵 鍵，然后打開 Microsoft Visual Basic應用程序 窗口。

2. 點擊 插頁 > 模塊，然后將以下宏粘貼到 模塊 窗口。

VBA代碼：將多列合并或合并到一個列表中

Sub CombineColumns1()updateby ExtendofficeDim xRng As RangeDim i As IntegerDim xLastRow As IntegerDim xTxt As StringOn Error Resume NextxTxt = Application.ActiveWindow.RangeSelection.AddressSet xRng = Application.InputBox("please select the data range", "Kutools for Excel", xTxt, , , , , 8)If xRng Is Nothing Then Exit SubxLastRow = xRng.Columns(1).Rows.Count + 1For i = 2 To xRng.Columns.CountRange(xRng.Cells(1, i), xRng.Cells(xRng.Columns(i).Rows.Count, i)).CutActiveSheet.Paste Destination:=xRng.Cells(xLastRow, 1)xLastRow = xLastRow + xRng.Columns(i).Rows.CountNextEnd SubCopy

3。 然后按 F5 鍵運行此代碼，然后會彈出一個提示框，提醒您選擇要合并為僅一列的數據范圍，請參見屏幕截圖：

4。 然后點擊 OK 按鈕，并且所選列已被合并為僅一列，如以下屏幕截圖所示：

Tips：運行此VBA后，該范圍的原始數據將被清除，最好將其復制并保存在其他位置。

將多列組合成一個列表 Kutools for Excel

如果你已經安裝 Kutools for Excel，它的 變換范圍 實用程序可以幫助您將多列組合為一個單列或單行。

Kutools for Excel : 帶有300多個便捷的Excel加載項，可以在內.前往下載購買貝寶/ MyCommerce

安裝后 Kutools for Excel，請執行以下操作：

1。 選擇要合并到一個列表中的列數據。

2。 然后點擊 Kutools > Range > 變換范圍，請參見屏幕截圖：

3。 在 變換范圍 對話框中選擇 范圍到單列 選項，然后單擊 Ok 按鈕，請參見屏幕截圖：

4。 在下面彈出 變換范圍 框，單擊要輸出結果的單元格，請參見屏幕截圖：

5。 然后點擊 OK 按鈕，您選擇的列已組合到所需位置的單個列中。 看截圖：

下載并 Kutools for Excel 現在 ！

演示：將多列組合成一個列表 Kutools for ExcelKutools for Excel：具有300多個方便的Excel加載項，可以在內，沒有任何限制。 立即下載并！

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel