GBKEE

¦^´_ 3# JOSH
['color=red]....['/color]  ³o¬O¦^ÂЧAªº¤å¤¤±N¦rÅé¥[¤WÃC¦âªººô­¶µ{¦¡½X¤£¬Ovbaµ{¦¡½X
¦ý¨Ï¥Î¥N½X®æ¦¡ ©Ò¥HµLªk¦b¦rÅé¥[¤WÃC¦â

¦^´_ 1# JOSH

¬¡­¶Ã¯¤¤¦Ü¤Ö­n¦³¤@­Ó¤u§@ªí

1. Sub Ex()
   
2.     Dim sh As Worksheet
   
3.     Application.DisplayAlerts = False
   
4.     For Each sh In Sheets
   
5.        If Sheets.Count > 1 Then sh.Delete
   
6.     Next
   
7.     Application.DisplayAlerts = True
   
8. End Sub

½Æ»s¥N½X

1. Sub Ex()
   
2.     Application.DisplayAlerts = False
   
3.     Do While Sheets.Count > 1
   
4.         ActiveSheet.Delete
   
5.     Loop
   
6.     Application.DisplayAlerts = True
   
7. End Sub

½Æ»s¥N½X