①ActiveWorkbook的常见属性

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

　　ActiveWorkbook.LinkSources(xlExcelLinks)(1) ‘返回当前工作簿中的第一条链接

　　ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetHidden ‘隐藏工作表，与在Excel菜单中执行“格式—工作表—隐藏”操作一样

　　ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetVeryHidden ‘隐藏工作表，不能通过在Excel菜单中执行“格式—工作表—取消隐藏”来重新显示工作表

　　ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetVisible ‘显示被隐藏的工作表

　　ThisWorkbook.Sheets(1).ProtectContents ‘检查工作表是否受到保护

　　②ActiveSheet对象常见属性

　　ActiveSheet.Columns("B").Cut　　'剪切B列

　　ActiveSheet.Columns("F").Insert ‘以上两句将B列数据移至F列，原C列后的数据左移

　　ActiveSheet.Range(“A:A”).EntireColumn.AutoFit ‘自动调整当前工作表A列的列宽

　　ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlTextValues) ‘选中当前工作表中常量和文本单元格

　　ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlErrors+xlTextValues) ‘选中当前工作表中常量和文本及错误值单元格

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

　　ThisWorkbook.Worksheets.Add ThisWorkbook.Worksheets(3), , 2   ‘在第3张工作表之前添加2个新的工作表

　　ActiveSheet.Move After:=ActiveWorkbook. _

　　Sheets(ActiveWorkbook.Sheets.Count) ’将当前工作表移至工作表的最后

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

　　ActiveSheet.UsedRange.FormatConditions.Delete ‘删除当前工作表中应用的条件格式

　　Cells.Hyperlinks.Delete ‘取消当前工作表中所有单元格的超链接

　　ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName ‘在页脚显示文件的路径

　　ActiveSheet.PrintPreview Enablechanges:=False ‘禁用显示在Excel的“打印预览”窗口中的“设置”和“页边距”按钮。

　　ActiveSheet.UsedRange.Row ‘获取已使用的单元格区域的第一行的行号。