Sheet 工作表语句
示例:
1): Sheet1
2): Sheets("1月")
3): Sheets(1) 注:此处代指第一张表
![]() |
Select 语句
示例:
Sheets(1).select 注:选中第一张表
Add、Count 语句
示例:
Sheets.Add after := Sheet3, Count:= 3 注:在Sheet3这个表后面插,插3个表
Sheets.Add after:=Sheets(Sheets.Count) 注:在最后一张表后面插
Range 范围语句
range("a1")
range("a" & i) 注:选中Ai单元格
range("a1") = 100 注:当前表的A1格赋值100
sheet3.range("a1") = 100 注:sheet3表的A1格赋值100
Name 语句
Sheet1.Name = "8月" 注:改sheet1表的表名为8月
Delete 语句
Sub shishi()
Application.DisplayAlerts = False 注:Excel不显示错误警告
Sheets(12).delete 注:删除表格时 ,Excel会提示是否确认删除,若要批量删除表格可关闭错误警告
Application.DisplayAlerts = True 注:Excel显示错误警告
End Sub
Copy 语句
Sheet1.copy 注:复制表格到新文件
Sheet1.copy after :=Sheet3 注:复制到sheet3的后面
Sheet1.copy after :=Sheets(Sheets.Count) 注:复制到表最后
续: