操作工作表——Excel之VBA（3）

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)　　注：复制到表最后

续：