Excle_VBA常用技巧_第02章.Worksheet(工作表对象).docVIP

VBA常用技巧 目录 VBA常用技巧 1 第2章 Worksheet（工作表）对象 2 技巧1 引用工作表的方式 2 1-1 使用工作表的名称 2 1-2 使用工作表的索引号 2 1-3 使用工作表的代码名称 3 1-4 使用ActiveSheet属性引用活动工作表 3 技巧2 选择工作表的方法 4 技巧3 遍历工作表的方法 5 3-1 使用For...Next 语句 5 3-2 使用For Each...Next 语句 7 技巧4 在工作表中上下翻页 8 技巧5 工作表的添加与删除 9 技巧6 禁止删除指定工作表 13 技巧7 自动建立工作表目录 15 技巧8 工作表的深度隐藏 17 技巧9 防止更改工作表的名称 19 技巧10 工作表中一次插入多行 20 技巧11 删除工作表中的空行 21 技巧12 删除工作表的重复行 23 技巧13 定位删除特定内容所在的行 25 技巧14 判断是否选中整行 26 技巧15 限制工作表的滚动区域 27 技巧16 复制自动筛选后的数据区域 28 技巧17 使用高级筛选获得不重复记录 30 技巧18 工作表的保护与解除保护 31 技巧19 奇偶页打印 34 Worksheet（工作表）对象 引用工作表的方式 VBA中，在不同的工作表之间转换或者对不同工作表中的单元格区域进行操作时，需要指定引用的工作表，通常有下面几种方法： 使用工作表的名称 工作表名称是指显示在工作表标签中的文本，工作表名称可以使用WorkSheets集合和Sheets集合两种引用方式，如下面的代码所示。 #001 Sub ShActivate() #002 Worksheets(索引号).Activate #003 Sheets(索引号).Activate #004 End Sub 第3、4行代码都激活工作簿中名称为“索引号”的工作表，激活后“索引号”工作表将成为活动工作表。 WorkSheets集合包含所有的工作表，而Sheets集合不仅包含工作表集合WorkSheets，还包含图表集合Charts、宏表集合Excel4MacroSheets与MS Excel 5.0对话框集合DialogSheets等。 任何时刻工作簿中只有一个工作表是活动工作表。 使用工作表的索引号 工作表索引号是指工作表在工作簿中的位置，Excel根据工作表在工作表标签中的位置以1开始从左向右进行编号。下面的代码选中并激活当前工作簿中第1个工作表： #001 Sub ShIndex() #002 Worksheets(1).Select #003 End Sub 单个WorkSheet对象的Select方法与Activate方法的主要区别在于Select方法要求工作表可视。 注意 当工作簿包括工作表、宏表、图表等时，使用索引号引用工作表如Sheets(1)与WorkSheets(1)引用的可能不是同一个表。 使用Worksheet对象的Index属性可以返回工作表的索引号，如下面的代码所示。 #001 Sub ShInde() #002 MsgBox Worksheets(索引号).Index #003 End Sub 使用工作表的代码名称 使用Worksheet对象的CodeName属性可以返回工作表的代码名称，如下面的代码所示。 #001 Sub ShCodeName() #002 MsgBox Sheets(1).CodeName #003 End Sub 工作表的代码名称显示在VBE工程资源管理器窗口中，在属性窗口中能够修改工作表代码名称，如图 211所示。在VBA中能够直接使用工作表的代码名称引用工作表，即使工作表的名称被修改，代码仍然能够正常运行。 图 211 工作表的代码名称 使用ActiveSheet属性引用活动工作表 使用ActiveSheet属性可以返回活动工作表，如下面的代码所示。 #001 Sub ShActive() #002 MsgBox ActiveSheet.Name #003 End Sub ActiveSheet属性应用于AppActivate对象、Window对象和Workbook对象时，如果未给出对象识别符，返回活动工作簿中的活动工作表。 选择工作表的方法 在VBA中需要激活或者选择某个工作表时Activate方法#001 Sub SelectSh() #002 Worksheets(Sheet2).Select #003 End Sub #004 Sub ActivateSh() #005 Worksheets(Sheet2).Activate #006 End Sub 代码解析： SelectS