六：复制和移动工作表
①复制
复制到指定工作表之前：
Sheets（工作表名称或工作表序号）.Copy Befor:=Sheets(工作表名称或工作表序号)
复制到指定工作表之后：
Sheets（工作表名称或工作表序号）.Copy After:=Sheets(工作表名称或工作表序号)
②移动
移动到指定工作表之前：
Sheets（工作表名称或工作表序号）.Move Befor:=Sheets(工作表名称或工作表序号)
移动到指定工作表之后：
Sheets（工作表名称或工作表序号）.Move After:=Sheets(工作表名称或工作表序号)
七：删除工作表
删除指定工作表：Sheets（工作表名称或工作表序号）.Delete
Sheets(”Sheet2“).Delete
Sheets(2).Delete
根据条件删除工作表
删除工作表名左边两位字符等”gz”的工作表
Private Sub 删除满足条件工作表
Dim I as integer
For i = .Sheets.Count To 1 Step -1
With .Sheets(i)
If Left(.NAME, 2)="gz" Then
.Delete
End If
End With
Next i
End Sub
八：工作表命名
修改指定工作表名称：Sheets（工作表名称或工作表序号）.Name=工作表名称
把工作表Sheet2命名为GZSheet
Sheets（”Sheet2”）.Name=”GZSheet”
Sheets（2）.Name=”GZSheet”
注意：工作表的名称在一个工作中必须是唯一的，且不区分大小写和全半角的。也就是说在工作簿中把名称“SHEET2” ,”sheet2”看成是相同的名称。
九：工作表的保护
①工作表的保护
Sheets（工作表名称或工作表序号）.Protect password:=密码
②解除工作表的保护
Sheets（工作表名称或工作表序号）.Unprotect password:=密码