1、创建一个excel2013工作簿,新建几个sheet。
2、找到开发工具,打开VBA编程入口。
3、创建一个程序,命名为test()。
4、可以用序号表示最后一个工作表对象。
5、使用全名称表示最后一个工作表对象。
6、最后一种方式是通过activesheet表示。
Sub AddWs()Dim n As Long, i As Long
n = 4 '将4改为实际要添加的工作表数目
For i = 1 To n
Worksheets.Add after:=Worksheets(Worksheets.Count)
Next i
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)