[已解决]求精简代码

lingyuncelia

Sub 宏1()

Application.DisplayAlerts = False
    Sheets("Sheet1").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Sheet2").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Sheet3").Select
    ActiveWindow.SelectedSheets.Delete
    ……
    Sheets("Sheet58").Select
    ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True

End Sub

最佳答案

月排行榜 / 总排行榜

四处逍遥

2014-11-29 15:41

什么情况下删除工作表，表达得不是太清楚，参考一下 for ……each循环

1. Sub 宏1()
   
2.     Application.DisplayAlerts = False
   
3.     On Error Resume Next  '防错处理，工作簿至少要包含一个工作表
   
4.     For Each sht In Sheets
   
5.         If sht.Name Like "*Sheet*" Then sht.Delete  '工作表名称包含"Sheet"则删除工作表
   
6.     Next
   
7.     Application.DisplayAlerts = True
   
8. End Sub

复制代码

跳转到最佳答案楼层

天棋

学习下with语句呢

四处逍遥

什么情况下删除工作表，表达得不是太清楚，参考一下 for ……each循环

1. Sub 宏1()
   
2.     Application.DisplayAlerts = False
   
3.     On Error Resume Next  '防错处理，工作簿至少要包含一个工作表
   
4.     For Each sht In Sheets
   
5.         If sht.Name Like "*Sheet*" Then sht.Delete  '工作表名称包含"Sheet"则删除工作表
   
6.     Next
   
7.     Application.DisplayAlerts = True
   
8. End Sub

复制代码

lingyuncelia

Sub 宏1()
Application.DisplayAlerts = False
For i = 1 To 58
Sheets("sheet" & i).Delete
Next
Application.DisplayAlerts = True
End Sub