要使用宏,请执行以下步骤:
1. 打开包含数据的工作簿。
2. 按 ALT+F11 组合键激活“Visual Basic 编辑器”。
3. 在“插入”菜单中,单击“模块”以插入一个模块。在模块的代码窗口中键入上面的宏。
4. 单击“文件”菜单中的“关闭并返回到 Microsoft Excel”。
5. 选择包含要合并的数据的工作表。
6. 单击要合并的右侧数据列的第一个单元格。例如,如果单元格 A1:A100 和 B1:B100 包含数据,则单击单元格 B1。
7. 在“工具”菜单中,指向“宏”并单击“宏”。选择 ConcatColumns 宏并单击“运行”。
注意:可以用语句 ActiveCell.Offset(0, 1).Formula 替换语句 ActiveCell.Offset(0, 1).FormulaR1C1。如果仅使用文本和数字(不包含公式),那么两个语句的效果相同。第一个语句末尾使用的 R1C1 表示第一行的第一列,这是 Excel 帮助主题中大多数示例使用的形式。
数组中的总行数和总列数
在 Excel 中,可以使用数组来计算和操作工作表中的数据,还可以使用宏将某个范围内的单元格中的值存储到一个数组中。本节中的示例宏代码将在一个矩形单元格区域中添加一行和一列,以包含该区域中每一行和每一列中的单元格总数。
具体的步骤是,代码从活动工作表上活动单元格周围的当前单元格区域中读取数据。宏将这些数据存储在一个数组中,计算每一行和每一列中的单元格总数,然后将输出显示在工作表中。数组的大小由当前区域中的单元格数量决定。
注意:此宏不会在工作表中添加任何公式,因此如果该范围内的单元格总数有变化,则必须重新运行宏。
使用以下示例之前,请执行以下步骤:
1. 打开一个新工作簿。
2. 在“工具”菜单中,指向“宏”,然后单击“Visual Basic 编辑器”(或者简单地按下 ALT+F11 组合键)。在“Visual Basic 编辑器”中的“插入”菜单中,单击“模块”。
将以下示例代码键入或粘贴到模块中:
Sub TotalRowsAndColumns()
' 此宏假定您已从
' 要计算单元格总数的矩形区域内
' 选择了一个单元格或一组单元格。行和列的单元格总数将出现在
' 当前区域下面的行和右侧的列中。
Dim r As Integer
Dim c As Integer
Dim i As Integer
Dim j As Integer
Dim myArray As Variant
' 将 myArray 声明为变量将使数组可以接收
' 一组单元格。此时,数组将自动转换为
' 以下标 myArray(1,1) 开始的数组。
' 指当前所选单元格周围的区域。