如何在Excel中将两列交替值合并为一列？

工作表中有两列。任务是将这两列合并为一列，并且值交替排列，如下方截图所示。你如何快速完成此任务而不用逐一手动重新排序呢？

通过VBA代码将两列交替值合并为一列

通过Kutools for Excel将两列交替值合并为一列

通过VBA代码将两列交替值合并为一列

要将两列以交替值合并为一列，在Excel中除了使用VBA代码外，没有内置函数可以实现。

1. 按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。点击 插入 > 模块 创建一个新的空白模块。

2. 将以下代码复制并粘贴到模块中。

VBA：将两列以交替值合并为一列

Sub MergeColumns()
'UpdatebyExtendoffice20180815
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNum As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select two 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 xFNum = 1 To xSRg.Count
        Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
        xDRg.Value = xSRg.Item(xFNum).Value
        xI = xI + 1
    Next xFNum
Application.ScreenUpdating = True
End Sub

3. 按下 F5 键，并在弹出的对话框中选择要合并的两列。

4. 点击 确定，在第二个对话框中，选择一个单元格放置结果。

5. 点击确定。现在，所选的两列已以交替值合并为一列。

通过 Kutools for Excel 将两列交替值合并为一列

如果你已在 Excel 中安装了 Kutools for Excel，其 转换区域 工具只需三个简单步骤即可完成此任务。

1. 选择要合并的列（两列或更多），点击 Kutools > 转换区域.

2. 在 转换区域 对话框中，勾选 区域转单列 选项，并点击 确定.

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

现在，这些列已被合并为一列，并且值在两列之间交替排列。

演示：使用 Kutools for Excel 转置区域