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

 以下是工作表中的两列，其中的工作是将这两列合并为一列，并使用值替换，如下面的屏幕截图所示。 如何在不重新排序的情况下快速处理工作?

通过VBA代码将两列合并为一个具有交替值的列

通过Kutools for Excel将两列合并为一个具有交替值的列

在Excel中快速将范围转置为列/行/反之亦然

在某些情况下，您可能需要将一系列单元格转换为一列或一行，反之亦然，可将列或行转换为Excel表格中的多行和多列。 你有什么快速的方法来解决它？ 在这里 移调范围 功能 Kutools for Excel 可以轻松处理所有以上的工作。点击60天免费试用！

Kutools for Excel：拥有超过200便利的Excel加载项，可以在60天免费试用，不受限制。

通过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。 点击 OK，在第二个对话框中，选择要放置结果的单元格。

5。 点击 OK。 现在，所选的两列已合并为一列，并且值为替代值。

通过Kutools for Excel将两列合并为一个具有交替值的列

如果你有 Kutools for Excel 安装在Excel中，其 Transform Range 实用程序只需要3简单步骤即可解决此问题。

安装后 Kutools for Excel，请按照以下步骤操作：(免费下载Kutools for Excel!)

1。 选择要合并的列(两个或更多)，单击 Kutools > Transform Range.

2。 在里面 Transform Range 对话框，检查 Range to single column 选项，然后单击 Ok.

3。 选择一个单元格以将结果放在弹出对话框中。 点击 OK.

现在列已合并为一列，值按替代顺序排列。

移调范围

推荐的生产力工具

Office Tab

带上方便的选项卡到Excel和其他Office软件，就像Chrome浏览器，Firefox和新的Internet Explorer。

Kutools for Excel

惊人! 提高您在5分钟的生产力。 不需要任何特殊技能，每天保存两个小时!

200 Excel的新功能，让Excel变得简单而强大：

合并单元格/行/列而不丢失数据。

合并和合并多个工作表和工作簿。

比较范围，复制多个范围，将文本转换为日期，单位和货币转换。

按颜色计算，分页小计，高级分类和超级筛选，

更多选择/插入/删除/文本/格式/链接/评论/工作簿/工作表工具…