excel如何用vba代码删除从第三个工作表以后的所有表只保留前两个

Question

excel如何用vba代码删除从第三个工作表以后的所有表只保留前两个（名字都是不确定的，不是固定的sheet+数字）

Answer 1

Sub delSheet()
    Application.DisplayAlerts = False
    If Worksheets.Count >= 3 Then
        For i = Worksheets.Count To 3 Step -1
            Worksheets(i).Delete
        Next
    End If
    Application.DisplayAlerts = True
End Sub

本回答被提问者采纳

Answer 2

Sub test()
Dim Sht As Worksheet, n As Integer, i As Integer
Application.DisplayAlerts = False
If Sheets.Count > 2 Then End
n = ActiveWorkbook.Sheets.Count
For i = n To 3 Step -1
Sheets(i).Delete
Next i
Application.DisplayAlerts = True
End Sub

Answer 3

Sub test()
Dim x%
x = Sheets.Count
For i = x To 3 Step -1
Sheets(i).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Next
End Sub

Answer 4