如何在 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 将多列合并为一个列表