如何在Excel中将列从左到右堆叠成一列？

假设有多个列，任务是将这些列从左到右堆叠成一个单独的列，如下图所示。除了手动逐个移动列之外，是否还有其他技巧可以在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

3. 按 F5 键运行代码，会弹出一个对话框，供您选择要堆叠为一列的列。

4. 点击 确定，选择一个单元格放置结果。

5. 点击 确定 完成。现在所选列已堆叠为一列。

使用Kutools for Excel将列从左到右堆叠为一列

如果您已在Excel中安装了 Kutools for Excel，您可以使用 转换区域 工具来处理此任务。

安装 Kutools for Excel 后，请按照以下步骤操作：

1. 选择要堆叠的列，点击 Kutools > 区域 > 转换区域.

2. 在 转换区域 对话框中，勾选 区域转单行 复选框，点击 确定.

3. 在弹出的对话框中，选择一个单元格放置结果，点击 确定.

现在列已被转换为单行。

4. 选择该单行，按 Ctrl + C 将其复制，并选择另一个单元格以放置堆叠列，右键单击并选择 转置(T) 在上下文菜单中。

现在该单行已被转置为堆叠列。