用VBA生成一个批量删除工作表的代码

可以使用以下 VBA 代码批量删除工作表：

Sub DeleteWorksheets()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub

这段代码会循环遍历当前工作簿中的所有工作表，并删除它们。在删除工作表时，我们需要将 DisplayAlerts 属性设置为 False，以避免出现删除确认对话框。