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

在本文中，用户将学习如何在Microsoft Excel中将两列合并为一列，并交替显示值。Excel工作表中包含多种结构，包括“开始”选项卡、“Visual Basic应用程序（VBA）”选项卡和“Ku-tools”选项卡，可以使用Ku-tools将两列合并为一列，并根据需要打开对话框。用户可以使用Visual Basic将两列合并为一列。此方法可以通过使用Ku-tools选项卡在Microsoft Excel中以简单的方式完成，从而将两列合并到另一列中。

示例 1：使用VBA将两列合并为一列，并交替显示值

步骤 1

考虑Excel工作表。首先，打开Excel工作表，并根据需要在单元格A1到B5中逐个创建数据，如下所示。

步骤 2

在工作表中，将光标放在任何单元格中，然后转到功能区。功能区顶部角落包含许多选项卡。将光标放在“开发工具”选项卡上，然后单击该选项卡，其中包含许多选项。在“开发工具”选项卡上，将光标放在“代码”组中的“Visual Basic应用程序”选项卡上，这将打开VBA。在此窗口中，功能区中包含许多选项卡。将光标放在“插入”选项卡上，其中包含许多选项。单击“模块”选项卡，这将打开编码窗口，用户必须在此窗口中编写程序以隐藏除活动工作表之外的所有工作表，如下所示。

步骤 3

在此编码窗口中，编写必须运行的代码。该程序为：

Sub MergeCol()
Dim x1, x2 As Range
Dim k1 As Worksheet
Dim r1, r2, r3 As Long
Dim f1 As Long
On Error GoTo Err
Set x1 = Application.InputBox("Choose the  two types of columns:", "Excel", xText, , , , , 8)
If x1 Is Nothing Then
Err:
   Application.ScreenUpdating = True
   Exit Sub
End If
Set x2 = Application.InputBox("Select a cell:", "Excel", xText, , , , , 8)
If x2 Is Nothing Then
   Exit Sub
End If
Application.ScreenUpdating = False
Set k1 = x2.Worksheet
r1 = x2.Row
r2 = x2.Column
r3 = 0
   For f1 = 1 To x1.Count
      Set x2 = k1.Cells(r1 + r3, r2)
      x2.Value = x1.Item(f1).Value
      r3 = r3 + 1
   Next f1
Application.ScreenUpdating = True
End Sub

步骤 4

在Visual Basic窗口中，将光标放在功能区上，然后单击“运行”图标以运行此代码，这将在活动工作表中打开对话框。选择要合并的两列或所有单元格。单击“运行”选项卡，然后它将返回到工作表。在工作表中，它将打开一个弹出窗口，要求选择两列。在弹出窗口中，选择从A1到B5的范围，然后单击“确定”按钮，这将打开弹出窗口。在此窗口中，选择要将两列合并到的单元格。它将两列合并为一列，如下所示。