Sub clearSheets()
Dim worksheets As Sheets
Dim ws As Worksheet
Dim idx As Integer
Set worksheets = ActiveWorkbook.worksheets
idx = worksheets.Count
Application.DisplayAlerts = False
While idx > 1
Set ws = worksheets.Item(idx)
ws.Delete
idx = worksheets.Count
Wend
Application.DisplayAlerts = True
End Sub
VBA删除第一个sheet后的所有sheet
最新推荐文章于 2023-09-24 13:53:43 发布