如何在 VBA 中删除 Excel 工作表？

Question

如何使用 for next 循环删除工作簿中除前两张工作表之外的所有 Excel 工作表？

For 
Next

Answer 1

考虑：

Sub Killer()
    j = Sheets.Count
    For i = j To 3 Step -1
        Sheets(i).Delete
    Next i
End Sub

如果愿意，您可以在运行循环之前禁用警报。