VBA——Worksheet操作

VBA操作Excel中常用对象Worksheet的方法笔记，所有内容均来源于别怕，Excel VBA其实很简单。

---

WorkSheet操作

属性汇总

属性名称	属性内容	例子
CodeName	代码名称	ActiveSheet.CodeName
Count	工作表总数量	Worksheets.Count
Name	标签名称	ActiveSheet.Name
Visible	显示	Worksheets.Visible = xlSheetHidden
Index	索引号
UsedRange	所用单元格（无视空行、空列）	ActiveSheet.UsedRange.Select

方法汇总

方法名称	方法内容	例子
Item	索引工作表	Worksheets.Item(1)
Add	新建工作表	Worksheets.Add
Delete	删除工作表	Worksheets("Sheet1").Delete
Activate	激活工作表	Worksheets(1).Activate
Select	选中工作表	Worksheets(1).Select
Copy	复制工作表	Worksheets("工资表").Copy
Move	移动工作表	Worksheets("工资表").Move
Paste	黏贴剪切板内容	ActiveSheet.Paste

引用工作表

Worksheets.Item(1)      '引用工作簿中的第1张工作表
Worksheets(1)           '引用工作簿中的第1张工作表
Worksheets("Sheet1")    '引用工作簿中标签名称为"Sheet1"的工作表
Sheet1                  '用代码名称直接引用工作表
ActiveSheet.CodeName    '查看活动工作表的代码名称

新建工作表Add

Worksheets.Add before:= Worksheets(1)                   '在第一张工作表前插入1张新工作表
Worksheets.Add after:= Worksheets(Worksheets.Count)     '在最后一张工作表后插入1张新工作表
Worksheets.Add before:= Worksheets(1), Count:=3         '在第一张工作表前插入3张新工作表
Worksheets.Add(after:= Worksheets(1)).Name) = "工资表"     '在新建工作表时指定标签名称

删除工作表Delete

Worksheets("Sheet1").Delete         '删除标签名为Sheet1的工作表
Application.DisplayAlerts = False   '删除工作表时不显示警告对话框

激活工作表Select/Activate

Worksheets(1).Activate              '激活第一张工作表
Worksheets(1).Select                '选中表
Worksheets.Select                   '选中所有的工作表

当工作表隐藏时，Select会出错；Activate不能同时选中多张工作表。

复制工作表Copy

带参数的Copy将复制到同一工作簿，不带参数的Copy将复制到新工作簿。

Worksheets("工资表").Copy after:=Worksheets("职工档案") '将工资表复制到职工档案后
Worksheets("工资表").Copy                              '将工资表复制到新工作簿中

Sub ShtCopy()       '将工资表复制到新建工作簿中，并且另存为。
  Worksheets("工资表").Copy
  ActiveSheet.Name = "工资表备份"
  ActiveWorkbook.SaveCopyAs "D:\工资表备份.xls"
  ActiveWorkbook.Close False
END Sub

移动工作表Move

Worksheets("工资表").Move before := Worksheets("出勤表")      
Worksheets("工资表").Move          '不指定参数将移动到新工作簿中

隐藏或显示工作表

'以上三句代码等同于从【格式】菜单隐藏工作表
Worksheets('工资表').Visible = False
Worksheets('工资表').Visible = xlSheetHidden  
Worksheets('工资表').Visible = 0
'超级隐藏工作表
Worksheets('工资表').Visible = xlSheetVeryHidden      
Worksheets('工资表').Visible = 2
'显示工作表
Worksheets('工资表').Visible = xlSheetVisible      
Worksheets('工资表').Visible = 1
Worksheets('工资表').Visible = True
Worksheets('工资表').Visible = -1

Sheets分类

Worksheets是Sheets的一个子类。

• 工作表Worksheet
• 图表
• MS Excel 4.0宏表
• MS Excel 5.0对话框