VBA程序中引用Excel单元格区域的几个实例

1、步骤一：启动Excel并打开VBA编辑器，在工程资源管理器中创建一个模块，在模块的“代码”窗口中输入如下程序代码：Sub MultiSelection1()Range("A1:F6 B2:D7").SelectEnd Sub按F5键运行该过程，则A1:F6单元格区域和B2:D7单元格区域的交叉区域被选择。Range属性的格式如下所示：Range(Cell1,Cell2)其中，参数Cell1为必选参数，其可以包括区域操作符(即冒号)、相交区域操作符(空格)以及合并区域操作符(逗号)，同时还可以使用已定义的单元格名称。

3、步骤三：在“代码”窗口中输入如下程序代码：Sub CellsIndex()With Range("A1:G10")For n=1 To.Cells.Count.Cells(n)=nNextEnd WithEnd Sub按F5键运行该过程，则在A1:G10单元格区域的单元格中将依次填入数字这里，两个参数均为可选参数，分别表示引用区域的行序号和列序号，带有参数的Cells属性返回代表该单元格的Range对象。

5、步骤五：在“代码”窗口中输入如下程序代码：Sub MultiSelection4()Range("A1:F6 B2:肛舀辨乔D7")=2Range("A1:F6 B2:D7").Resize(5,5).SelectEnd Sub按F5键运行该过程，则工作表A1:F6单元格区域和B2:D7单元格区域的交叉区域被填充数字2，该交叉区域扩充5行5列后的单元格区域被选择Resize属性的语法结构如下所示：Resize(Rowsize,ColumnSize)这里，RowSize参数和ColumnSize参数用于指定调整后的单元格区域的行数和列数。