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

有时候我们希望动态添加工作表。前面也分享过一些添加工作表的示例。

这里说一下几种简单的添加工作表的代码。可以在当前工作簿的前后添加一张或者多少工作表

详细代码：

Sub AddWorksheet()
     '在当前工作簿中添加一个工作表
    Worksheets.Add
    
    '在当前工作簿中的工作表sheet2之前添加一个工作表
    Worksheets.Add before:=Worksheets("sheet2")  
    
    '在当前工作簿中的工作表sheet2之后添加一个工作表
    Worksheets.Add after:=Worksheets("sheet2") 
    
    '在当前工作簿中添加3个工作表
    Worksheets.Add count:=2 
    
End Sub

运行代码，excel工作簿在不同的位置自动创建了多个工作表