摘要
在 Microsoft Excel 中，可以使用宏来连接两个相邻列中的数据，并在包含数据的列右侧的列中显示结果。 本文包含一个示例 Microsoft Visual Basic for Applications (VBA) 宏 (Sub 过程，) 完成此操作。
更多信息
Microsoft 提供编程示例仅供说明，不提供明示或默示担保。 这包括但不限于适销性或针对特定用途的适用性的默示保证。 本文假定你熟悉所演示的编程语言以及用于创建和调试过程的工具。 Microsoft 支持工程师可以帮助解释特定过程的功能。 但是，它们不会修改这些示例以提供附加的功能或构造过程来满足你的特定要求。
示例Visual Basic for Applications (VBA) 宏
Sub ConcatColumns()
Do While ActiveCell <> "" 'Loops until the active cell is blank.
'The "&" must have a space on both sides or it will be
'treated as a variable type of long integer.
ActiveCell.Offset(0, 1).FormulaR1C1 = _
ActiveCell.Offset(0, -1) & " " & ActiveCell.Offset(0, 0)
ActiveCell.Offset(1, 0).Select
Loop
End Sub
注意：语句 ActiveCell.Offset (0， 1) 。FormulaR1C1 可以替换为语句 ActiveCell.Offset (0， 1) 。公式。 如果仅使用文本和数字 (而不使用公式) ，则可以以同样成功的方式使用它们。 在第一条语句末尾使用的 R1C1 引用第一行，即第一列，是帮助中的示例中使用的形式。
如何在 Microsoft Office Excel 2007 中使用宏
-
打开包含数据的工作簿。
-
按 Alt+F11 启动 Visual Basic 编辑器。
-
在“ 插入 ”菜单上，单击“ 模块 ”以插入模块。 在模块的代码窗口中键入宏。
-
在“ 文件 ”菜单上，单击“ 关闭并返回到 Microsoft Excel”。
-
选择包含要连接的数据的工作表。
-
单击要连接的数据右侧列中的顶部单元格。 例如，如果单元格 A1：A100 和 B1：B100 包含数据，请单击单元格 B1。
-
单击“ 开发工具 ”选项卡。 如果未显示“ 开发工具 ”选项卡，请执行以下步骤：
-
单击“Microsoft Office 按钮”，然后单击“Excel 选项”。
-
单击“ 常用”。
-
单击以在“功能区检查”框中选择“显示开发人员”选项卡。
-
单击“ 确定” 关闭“ Excel 选项 ”对话框。
-
-
单击“代码”组中的“宏”。
-
选择 ConcatColumns 宏，然后单击“ 运行”。
如何在 Microsoft Office Excel 2003 和早期版本的 Excel 中使用宏
-
打开包含数据的工作簿。
-
按 Alt+F11 启动 Visual Basic 编辑器。
-
在“ 插入 ”菜单上，单击“ 模块 ”以插入模块。 在模块的代码窗口中键入宏。
-
在“ 文件 ”菜单上，单击“ 关闭并返回到 Microsoft Excel”。
-
选择包含要连接的数据的工作表。
-
单击要连接的数据右侧列中的顶部单元格。 例如，如果单元格 A1：A100 和 B1：B100 包含数据，请单击单元格 B1。
-
在“ 工具 ”菜单上，指向“ 宏”，然后单击“ 宏”。 选择 ConcatColumns 宏，然后单击“ 运行”。
