vba并在最后一列返回sheet表名称_VBA编程经典语句系列1-40

大家在学习VBA过程中要注意积累自己的所学，以后我会不定期的将写代码过程中经常用到的一些语句及解释总结供大家参考。这些可以作为积木编程的一个有效补充。今日给大家分享第一部分：

1 Option Explicit 强制对模块内所有变量进行声明

2 Option Base 1 指定数组的第一个下标为1

3 On Error Resume Next 忽略错误继续执行VBA代码,避免出现错误消息

4 On Error GoTo ErrorHandler 当错误发生时跳转到过程中的某个位置

5 On Error GoTo 0 恢复正常的错误提示

6 Application.DisplayAlerts=False 在程序执行过程中使出现的警告框不显示

7 Application.ScreenUpdating=False 关闭屏幕刷新

8 Application.ScreenUpdating=True 打开屏幕刷新

9 Workbooks.Add() 创建一个新的工作簿

10 Workbooks(“book1.xlsm”).Activate 激活名为book1的工作簿

11 ThisWorkbook.Save 保存工作簿

12 ThisWorkbook.close 关闭当前工作簿

13 ActiveWorkbook.Sheets.Count 获取活动工作薄中工作表数

14 ActiveWorkbook.name 返回活动工作薄的名称

15 ThisWorkbook.Name 返回当前工作簿名称

16 ThisWorkbook.FullName 返回当前工作簿路径和名称

17 ActiveWindow.EnableResize=False 禁止调整活动工作簿的大小

18 ActiveWorkbook.WindowState=xlMaximized 将当前工作簿最大化工作表

19 ActiveSheet.UsedRange.Rows.Count 当前工作表中已使用的行数

20 Rows.Count 获取工作表的行数

21 Sheets(Sheet1).Name=”HZ” 将Sheet1命名为HZ

22 ThisWorkbook.Sheets.Add Before:=Worksheets(1) 添加一个新工作表在第一工作表前

23 ActiveSheet.Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) 将当前工作表移至工作表的最后

24 Worksheets(Array(“sheet1”,”sheet2”)).Select 同时选择工作表1和工作表2

25 Sheets(“sheet1”).Delete或 Sheets(1).Delete 删除工作表1

26 ActiveWorkbook.Sheets(i).Name 获取工作表i的名称

27 ActiveSheet.UsedRange.FormatConditions.Delete 删除当前工作表中所有的条件格式

28 Cells.Hyperlinks.Delete 取消当前工作表所有超链接

29 ActiveSheet.PageSetup.Orientation=xlLandscape

或ActiveSheet.PageSetup.Orientation=2 将页面设置更改为横向

30 ActiveSheet.PageSetup.LeftFooter=Application.UserName 将用户名放置在活动工作表的页脚

31 ActiveCell.CurrentRegion.Select 选择当前活动单元格所包含的范围，上下左右无空行

32 Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select 选择当前活动单元格所包含的范围，上下左右无空行

33 Cells.Select 选定当前工作表的所有单元格

34 Range(“A1”).ClearContents 清除活动工作表上单元格A1中的内容

35 Selection.ClearContents 清除选定区域内容

36 Range(“A1:D4”).Clear 彻底清除A1至D4单元格区域的内容，包括格式

37 Cells.Clear 清除工作表中所有单元格的内容

38 ActiveCell.Offset(1,0).Select 活动单元格下移一行，同理，可下移一列

39 Range(“A1”).Offset(ColumnOffset:=1)或Range(“A1”).Offset(,1) 偏移一列

40 Range(“A1”).Offset(Rowoffset:=-1)或Range(“A1”).Offset(-1) 向上偏移一行

今日内容回向：

1. ClearContents 与Clear 有何不同？
2. Offset(1,0) 和Offset(0,1) 有何不同？

3 什么情况下有都fullname?