1.VBA 常用的对象
Application 代表Excel应用程序
Workbook 代表Excel中的工作簿，一个Workbook对象代表一个工作簿文件
Worksheet 代表Excel中的工作表，一个Worksheet对象代表工作簿里的一张普通工作表
Range 代表Excel中的单元格，可以是单个单元格，也可以是单元格区域
2.Application
打开对象模型，最顶端的Application对象是起点，它代表excel程序本身，就像一棵树的根，excel里所有的对象都以它为起点。
①ScreenUpdating 属性
ScreenUpdating属性的默认值为True，如果设置为False，Excel不会讲计算结果显示到屏幕上。
②DisplayAlerts 属性
DisplayAlerts属性决定在程序运行中是否显示警告信息，默认值为True，如果不想在程序运行时被提示和警告信息打扰，可以在程序开始时将属性设为False。但如果在程序中修改了该属性为False，在程序结束前记得将它设回True。
③EnableEvents属性
可以通过设置Application对象的EnableEvents属性来启用或禁用事件。（事件是能被excel认识的一个操作动作）
EnableEvents属性为False后，当选中单元格后，excel不会再自动运行程序，即禁用了该程序。
④WorksheetFunction属性
WorksheetFunction属性用于调用部分工作表函数。
3.Workbook
①引用单个工作簿
a.利用索引号引用，如：Workbooks.Item(3)；b.利用工作簿名引用工作簿，如：Workbooks("Book1")
②实际操作
Workbooks.Add 创建一个工作簿文件
Workbooks.Open 打开一个excel文件
Workbooks.Activate 激活一个工作簿文件
Workbooks.Save 保存工作簿
Workbooks.Close 关闭所有打开的工作簿 Workbooks("Book1").Close 关闭"Book1"
Workbooks("Book1").Close savechanges:=True 关闭并保存修改
4.Worksheet
①引用工作表 Worksheets("Sheet1") 引用工作簿里标签名称为“sheet1”的工作表
Sheet1.Range("A1")=100 在指定工作表的A1单元格输入100 [Sheet1为代码名称]
②新建工作表 Worksheets.Add
③删除工作表 Worksheets.Delete
④激活工作表 Worksheets(1).Activate Worksheets(1).Select
⑤复制工作表 Worksheets(1).Copy
⑥移动工作表 Worksheets("sheet1").Move before:=Worksheets("sheet3") 将sheet1移到sheet3前面
⑦隐藏或显示工作表
隐藏 Worksheets("sheet1").Visible=False / Worksheets("sheet1").Visible=0 / Worksheets("sheet1").Visible=x|sheetHidden
显示 Worksheets("sheet1").Visible=True / Worksheets("sheet1").Visible=1 / Worksheets("sheet1").Visible=-1 / Worksheets("sheet1").Visible=x|sheetVisible
5.Sheets 与 Worksheets
Sheets 集合包含更多类型的工作表，所以其包含的方法和属性比Worksheets集合多。
6.Range
①Range("A1:A10") 活动工作表A1:A10的单元格
②dim n as string
n="B1:B10"
Range(n)=100 n表示单元格地址的字符串变量
③如果单元格已经被定义为名称，参数还可以表示名称名的字符串或字符串变量，如：Range("date").Value=100
④如果要引用多个不连续的区域，可以在各区域间添加逗号，如：Range("A1:A10,A4:E5,C3:D8")
⑤如果想引用相交区域（公共区域），可以在多个区域间添加空格，如：Range("B1:B10 A4:D8") 还可以使用两个参数来引用两个区域围城的矩形区域，如：Range("B1:B10"," D4:D8")
⑥Worksheet（或Range）对象的Cells属性
这是引用Range对象的另一种形式，返回指定工作表或单元格区域中指定行与列相交的单元格。 activesheet.cells(3,4)与activesheet.cells(3,"D") 相同，均为第3行与第4列（即D列）相交的单元格（D3）.cells可以只使用一个参数，如：cells（2），2是索引号，索引号告诉VBA现在引用的是activesheet中的第2个单元格。
如果引用的是worksheet 对象的cells属性，在excel2003中索引号的值为1到16777216（65536行×256列）。单元格从左往右，从上到下的顺序编号，即A1为第1个单元格，B1为第2个单元格，C1为第3个单元格……A2为第257个单元格……
如果引用的是range对象的cells属性，索引号的范围为1到这个单元格区域包含的单元格个数。但索引号可以大于单元格区域里的单元格个数，如果索引号大于单元格个数，系统会自动将单元格区域在行方向上进行扩展（列数不变），然后再引用。
如果不适用任何参数，cells属性将返回指定对象中的所有单元格。
range属性能引用多个单元格，而cells属性只能引用一个单元格。
引用整行：Rows("3:3") '第三行，Rows("3:5") '第3到第5行。
引用整列：Columns("F:G") 'F列到G列 Columns(6) '第6列
⑦Offset属性
Range("A1").offset(2,3) '从A1单元格出发，向下移动2行，向右移动3列。修改Offset的参数可以控制移动的方向和距离。如果参数是正数，表示向下或向右移动；如果参数为负数，表示向上或向左移动；如果参数为0，则不移动。
⑧Resize属性
使用Range对象的Resize属性扩大或缩小指定的单元格区域，得到一个新的单元格区域。
Range("B2").Resize(5,4) '将B2单元格扩大为B2：E6 Resize(a,b)表示新区域有a行，b列
⑨End属性
End属性的参数，x|ToLeft（向左移动） x|ToRight（向右移动） x|Up（向上移动） x|Down（向下移动）