大家在学习VBA过程中要注意积累自己的所学，以后我会不定期的将写代码过程中经常用到的一些语句及解释总结供大家参考。这些可以作为积木编程的一个有效补充。今日给大家分享第一部分：
1OptionExplicit强制对模块内所有变量进行声明
2OptionBase1指定数组的第一个下标为1
3OnErrorResumeNext忽略错误继续执行VBA代码,避免出现错误消息
4OnErrorGoToErrorHandler当错误发生时跳转到过程中的某个位置
5OnErrorGoTo0恢复正常的错误提示
6Application.DisplayAlerts=False在程序执行过程中使出现的警告框不显示
7Application.ScreenUpdating=False关闭屏幕刷新
8Application.ScreenUpdating=True打开屏幕刷新
9Workbooks.Add()创建一个新的工作簿
10Workbooks(“book1.xlsm”).Activate激活名为book1的工作簿
11ThisWorkbook.Save保存工作簿
12ThisWorkbook.close关闭当前工作簿
13ActiveWorkbook.Sheets.Count获取活动工作薄中工作表数
14ActiveWorkbook.name返回活动工作薄的名称
15ThisWorkbook.Name返回当前工作簿名称
16ThisWorkbook.FullName返回当前工作簿路径和名称
17ActiveWindow.EnableResize=False禁止调整活动工作簿的大小
18ActiveWorkbook.WindowState=xlMaximized将当前工作簿最大化工作表
19ActiveSheet.UsedRange.Rows.Count当前工作表中已使用的行数
20Rows.Count获取工作表的行数
21Sheets(Sheet1).Name=”HZ”将Sheet1命名为HZ
22ThisWorkbook.Sheets.AddBefore:=Worksheets(1)添加一个新工作表在第一工作表前
23ActiveSheet.MoveAfter:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)将当前工作表移至工作表的最后
24Worksheets(Array(“sheet1”,”sheet2”)).Select同时选择工作表1和工作表2
25Sheets(“sheet1”).Delete或Sheets(1).Delete删除工作表1
26ActiveWorkbook.Sheets(i).Name获取工作表i的名称
27ActiveSheet.UsedRange.FormatConditions.Delete删除当前工作表中所有的条件格式
28Cells.Hyperlinks.Delete取消当前工作表所有超链接
29ActiveSheet.PageSetup.Orientation=xlLandscape
或ActiveSheet.PageSetup.Orientation=2将页面设置更改为横向
30ActiveSheet.PageSetup.LeftFooter=Application.UserName将用户名放置在活动工作表的页脚
31ActiveCell.CurrentRegion.Select选择当前活动单元格所包含的范围，上下左右无空行
32Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select选择当前活动单元格所包含的范围，上下左右无空行
33Cells.Select选定当前工作表的所有单元格
34Range(“A1”).ClearContents清除活动工作表上单元格A1中的内容
35Selection.ClearContents清除选定区域内容
36Range(“A1:D4”).Clear彻底清除A1至D4单元格区域的内容，包括格式
37Cells.Clear清除工作表中所有单元格的内容
38ActiveCell.Offset(1,0).Select活动单元格下移一行，同理，可下移一列
39Range(“A1”).Offset(ColumnOffset:=1)或Range(“A1”).Offset(,1)偏移一列
40Range(“A1”).Offset(Rowoffset:=-1)或Range(“A1”).Offset(-1)向上偏移一行
今日内容回向：
1ClearContents与Clear有何不同？
2Offset(1,0)和Offset(0,1)有何不同？
3什么情况下有都fullname?