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