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

ms excelmicrosoft technologiesadvanced excel function更新于 2024/11/1 18:52:17

本文将指导用户在 Microsoft Excel 中将两列值交替合并为一列。Excel 工作表提供了多种结构，包括主页、Visual Basic 应用程序 VBA 以及 Ku-tools 选项卡，用户可以使用 Ku-tools 将两列合并为一列，Ku-tools 会根据需要打开对话框。用户可以使用 Visual Basic 将两列合并为一列。此方法也可以在 Microsoft Excel 中使用一种简单的方法完成，即使用 Ku-tools 选项卡将两列合并到不同的列中。

示例 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 的范围，然后点击"确定"按钮，打开弹出窗口。在窗口中，选择需要将列合并为一列的任意单元格。它会将两列合并为一列，如下所示。

示例 2:使用 Ku-tools 将两列合并为一列，并使其值交替

步骤 1

在工作表中，将光标放在功能区中。功能区的顶角有许多选项卡。将光标放在 Ku-tools 选项卡中，然后点击包含多个选项的选项卡。在 Ku-tools 选项卡上，将光标放在 Range 选项卡上，该选项卡在 Ranges & Cells 组中包含一个下拉菜单。点击菜单，然后选择变换范围选项卡，如下所示 -