vba编程实例与技巧

一、处理单元格

1、复制单元格   (1)单个单元格的复制 range("a1").copy destination:=range("b1") 

              (2)不同工作表间区域的复制  set rng1=workbooks(1).worksheets("Sheet1").range("a1:d10")

                                      set rng2=workbooks(1).worksheets("Sheet2").range("a1:d10")

                                      rng1.copy rng2

              (3)同一工作表的区域复制  range("a1:d10").copy range("b1")

2、移动单元格区域，上述主要运用range对象的copy方法，这里主要运用range对象的cut方法

如：range("a1").cut range("b1") 剪切a1到b1

range("a1:d10").cut range("k1")

3、复制大小可变的单元格区域，行数或者列数可变，这里主要运用range对象的currentregion属性，该属性返回活动单元格所在的一个矩形区域，相当于在工作表中按ctrl+shift+*

range("a1").currentregion.copy worksheets("Sheet1").range("a1")

注：(1)处理单元格区域时，不需要选定单元格 (2)在vba中善于使用命名的单元格区域

4、单元格的选取以及range对象的end方法，测试以下几个快捷键

ctrl+shift+down/ctrl+shift+up/ctrl+shift+left/ctrl+shift+right/ctrl+shift+*/end/home/选定活动单元格所在的列/选定单元格所在的行/选定第一个非空白列/选定第一个非空白行/选定最后一个非空白行/选定最后一个非空白列