VBA 插入和删除工作表

初始工作簿

 

1、插入工作表

代码

Sub test()
    Dim i As Integer
    Rem=========  利用 for 循环插入工作表，并命名
    For i = 0 To 5
        Worksheets.Add
        ActiveSheet.Name = "表" & i         '为插入的工作表命名
    Next

End Sub

运行结果：

 

2、删除工作表

代码

Sub test()
    Dim sheet As Worksheet
    Rem========= 利用 for 循环和 if 语句删除工作表
    For Each sheet In Worksheets
        If sheet.Name <> "sheet1" Then
        sheet.Delete
        End If
    Next
End Sub

代码运行结果