VBA 批量删除worksheets

 

Sub 批量删除表() '批量删除worksheet(4) 右边的所有worksheets
    Dim x As Integer
    Application.DisplayAlerts = False
    
    For x = Worksheets.Count To 4 Step -1 ' For x = 2 To Worksheets.Count 这种顺着删除的方式会出现“越界”
        Worksheets(x).Delete
        
    Next
    
    Application.DisplayAlerts = True
 

End Sub


Sub 遍历表()
    
    Dim x As Integer
    For x = 1 To Worksheets.Count
        MsgBox Worksheets(x).Name
    Next

End Sub

Sub 删除表()
    
    '工作表.delete
    Application.DisplayAlerts = False
    Worksheets("天津").Delete
    'worksheets(x).delete '第二种方法
    'Sheet1.Delete '第三种方法
    
    Application.DisplayAlerts = True
 

End Sub

 

转载于:https://www.cnblogs.com/joewancn/p/9643666.html