如何用excel vba一次删除工作簿中的除第一张之外的所有工作表

没分哟，加分
For i = 2 To 10
Sheets(i).Select
ActiveWindow.SelectedSheets.Delete
Next i
如果有10个表的话，最好是前面加一句错误处理。本回答被提问者采纳

Dim i As Long
For i = 2 To Sheets.Count
Application.DisplayAlerts=False '不弹出警告框
Sheets(i).Delete
Application.DisplayAlerts=True
Next i

Sub xx()
Application.DisplayAlerts = False
For i = ActiveWorkbook.Worksheets.Count To 2 Step -1
Sheets(i).Delete
Next i
Application.DisplayAlerts = True
End Sub