excel在不同位置动态添加工作表

有时候我们希望动态添加工作表。前面也分享过一些添加工作表的示例。这里说一下几种简单的添加工作表的代码。可以在当前工作簿的前后添加一张或者多少工作表
详细代码：SubAddWorksheet()
'在当前工作簿中添加一个工作表
Worksheets.Add
'在当前工作簿中的工作表sheet2之前添加一个工作表
Worksheets.Addbefore:=Worksheets("sheet2")
'在当前工作簿中的工作表sheet2之后添加一个工作表
Worksheets.Addafter:=Worksheets("sheet2")
'在当前工作簿中添加3个工作表
Worksheets.Addcount:=2
EndSub
运行代码，excel工作簿在不同的位置自动创建了多个工作表

1511253430633858.png