lcc_seven

回復 3# yagami12th
我也來提供一個，自動判別有幾個sheet，刪除到只剩1個，因為如果連最後一個也刪除，檔案會關閉起來
Sub DeleteSheets()
Dim SheetsCount As Integer
SheetsCount = Application.Sheets.Count
Application.DisplayAlerts = False
If SheetsCount > 1 Then
    For i = 1 To SheetsCount - 1
        Sheets(1).Delete
    Next i
End If
Application.DisplayAlerts = True
End Sub