VBA之操作工作表

1.选中工作表的三种方式
Sub test()
Sheet1.Select
Sheets(1).Select
Sheets(“1月”).Select
End Sub
上面三种都是选中第一个工作表
其中第1个指的是第一个sheet,第2个是索引,可以在括号里改值,第3个工作表名为"1月"的sheet

2.怎么在表后面新增表
Sub test1()

Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = “新表”

End Sub
上面代码的Sheets(Sheets.Count)
Sheets.Count代表工作表的数量,
然后变成sheets(数量),这样就永远在最后一个后面添加新的工作表了

3.如何一次性建100张表
Sub test2()
'建100张表，分别叫1,2,3,4…
For i = 1 To 100
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = i
Next

End Sub