vba range单元格及相应操作代码

在VBA中，可以使用Worksheet或Range对象的Range属性来引用单元格。

1.引用单个固定的单元格区域

  这种方法实际就是通过单元格地址来引用单元格。

2.要引用定义为名称的单元格

可以将Range属性的参数设置为表示名称名的字符串或变量。

定义单元格区域的名称名 操作步骤：公式--名称管理器

      如果要引用多个不连续的单元格区域，可以将Range属性的参数设置为一个用逗号分隔的多个单元格地址组成的字符串。

注意：无论有多少个区域，参数都只是一个字符串，参数中各个区域的地址间用逗号分隔。

4.引用多个区域的公共区域

       如果要引用多个区域的公共区域，可以将Range属性的参数设置为一个用空格分隔的多个单元格地址组成的字符串。

5.引用两个区域围成的矩形区域

      如果给Range属性设置两个用逗号隔开的参数，就可以引用这两个区域围成的矩形区域。

用Cells属性引用单元格

      使用Worksheet或Range对象的Cells属性引用单元格，是另一种常见的引用方式。这种方式通过单元格所在的行、列号或索引号来引用单元格。

1、引用工作表中指定行列交叉的单元格

或

即：其中，行号只能是数字，而列标可以是数字也可以是字母。

2.引用单元格区域中的某个单元格

   以Range为对象时，则Cells(行号，列号)以该区域为准从1开始算起。

3.将Cells属性的返回结果设置为Range属性的参数

4.使用索引号引用单元格

   Cells是工作表中所有单元格组成的集合，可以使用索引号引用该集合中的某个单元格。

   如果引用的是Range对象的Cells属性，索引号的范围为1到这个区域包含的单元格的个数。

  但索引号可以大于区域中包含的单元格个数。如果索引号大于单元格个数，系统会自动将单元格区域在行方向上进行扩展（列数不变）。

  如果不设置参数，Cells属性返回指定区域中的所有单元格。

      可以直接将A1样式的单元格地址，或定义为名称的名称名写在中括号中来引用某个单元格区域，这是更为简便、快捷的引用方式。

     这种引用方式非常适合引用一个固定的Range对象。但是因为 不能在中括号中使用变量，所以这种引用方式缺少灵活性，不能借助变量更改要引用的单元格。

         在VBA中，Rows表示工作表或某个区域中所有行组成的集合。

要引用工作表中指定的行，可以使用行号和索引号两种方式。

参数是表示行的名称的字符串或字符串变量

如果使用索引号引用整行，代码为：

如果要引用工作表中的所有行，代码为：

如果引用Range对象的Rows属性，则返回单元格区域中的指定行。

     可以使用Columns属性引用指定工作表或区域中的整列单元格，使用方法与使用Rows属性引用整行单元格的方法相似。

      Application对象的Union方法返回参数指定的多个单元格区域的合并区域，使用该方法可以将多个Range对象组合在一起，进行批量操作。

        Range对象的Offset属性，作用类似于工作表的Offset函数。

使用Offset属性，可以获得相对于指定单元格区域一定偏移量位置上的单元格区域。

     使用Range对象的Resize属性可以将指定的单元格区域有目的地扩大或缩小，得到一个新的单元格区域。

 注:Resize属性的参数用来确定返回区域的行数和列数，第1参数用于确定行数，第2参数用于确定列数，两个参数都应设置为正整数，若设置为负数则报错。

      且都是以目前单元格区域为起始点，向下且向右不存在向上并向左的情况，注意该点。

如果Resize属性的参数小于其父对象包含的行列数，Resize属性将返回一个较小的单元格区域。

eg:

等同于：

Range("B2:E6").Cells(1).Resize(2,1).Select

        Worksheet对象的UsedRange属性返回工作表中已经使用的单元格围成的矩形区域。

UsedRange属性返回的总是一个矩形区域，无论这些区域中间是否存在空行、空列或空单元格。

     Range对象的CurrentRegion属性，返回包含指定单元格在内的一个连续矩形区域。

注：空行及下面的区域，以及空列及右面的区域不包含在CurrentRegion属性返回的区域中。

     Range对象的End属性返回包含指定单元格的区域最尾端的单元格，返回结果等同于在单元格中按【End+方向键】组合键得到的单元格。

注：

1、指定单元格+End方向键  若此单元格置身于有值区域内则先会自动定位于指定方向的有值单元格区域的尾端，若对于此处尾端的单元格再次使用End方向键，则会定位到指定方向的最后一个单元格的位置；

2、若此单元格置身于无值单元格区域内则自动定位于位于指定方向的最后一个单元格的位置。

End属性的参数一共有4个可选项。分别用于指定要返回的是上、下、左、右哪个方向最尾端的单元格。

可设置的参数        参数说明

xlToLeft                等同于在单元格中按【End+左方向键】

xlToRight             等同于在单元格中按【End+右方向键】

xlUp                     等同于在单元格中按【End+上方向键】

xlDown                等同于在单元格中按【End+下方向键】

Value是Range对象的默认属性，在给区域赋值时，可以省略属性名称。

但为了保证程序运行过程中不出意外，建议保留Value属性。

  如果想知道某个区域包含的行数或列数，可以用代码：

这个地址为 绝对引用地址，eg:$c$3:$F$6。

   这两行代码是等效的。但这两种方法并不完全相同。

    一个单元格中不仅有数据，还有格式、批注、超链接等。 不同的内容，可以通过执行【功能区】中相应的命令来清除它们。

在使用VBA代码复制单元格时，并不需要选中单元格，所以如果要将A1单元格复制到C1单元格，用下面的代码就可以了：

总结：

有一点需要说明，无论复制的区域包含多少个单元格，在设置目标区域时，都可以只指定一个单元格作为目标区域最左上角的单元格即可。

eg：

eg:数值化粘贴

使用Cut 方法可以将一个单元格区域剪切到另一个单元格区域。

剪切单元格和复制单元格，除方法名称不同外，其他基本相似，可以参照Copy方法来使用Cut方法。

如果想删除整行单元格，应将代码写为：

删除单元格

Range("B5").delete Shift:=xltoleft    删除B5单元格，删除后右侧单元格左移   注：没有right，只有右侧左移。

Range("B5").delete Shift:=xltoup    删除B5单元格，删除后下方单元格上移    注：没有down,只有下方上移。

Range("B5").Entirerow.Delete          删除整行

Range("B5").EntireColumn.Delete   删除整列