一：插入一个工作表：Sheets.Add
在指定工作表前插入工作表：
Sheets.Add Before:=Sheets(工作表名称或工作表序号)
举例：
Sheets.Add Before:=Sheets(“Sheet4”)
Sheets.Add Before:=Sheets(4)
在指定工作表后插入工作表：
Sheets.Add Before:=Sheets(工作表名称或工作表序号)
举例：
Sheets.Add After:=Sheets(“Sheet3”)
Sheets.Add After:=Sheets(3)
在最后插入工作表：
Sheets.Add After:=Sheets(Sheets.Count)
在最前插入工作表：
Sheets.Add Before:=Sheets(1)
插入2个空白工作表：
Sheets.Add Count:=2
这里利用自变量Count来控制插入工作表的数量。
二：检查工作表”Sheet”是否存在
Private Sub检查工作表是否存在()
Dim iCount As Integer
For iCount = 1 To Sheets.Count
If Sheets(iCount).Name = "Sheet5" Then
MsgBox "Sheet5已经存在"
Exit Sub
End If
Next iCount
End Sub
三：选取工作表
选取指定工作表：
Sheets(工作表名称或工作表序号).Select
举例：
Sheets(“Sheet3”).Select
Sheets(3).Select
四：设置活动工作表
Sheets(工作表名称或工作表序号).Activate
举例：
Sheets("Sheet2").Activate
Sheets(2). Select
五：隐藏工作表
隐藏一个工作表：
Sheets(工作表名称或工作表序号).Visible=0
举例：
Sheets(“Sheet2”).Visible=0
Sheets(2) .Visible=0
取消隐藏一个工作表：
Sheets(工作表名称或工作表序号).Visible=-1
举例：
Sheets(“Sheet2”).Visible=-1
Sheets(2) .Visible=-1