GBKEE

¦^´_ 1# asch2007
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim sht As Worksheet, i As Integer
   
4.     Application.DisplayAlerts = False
   
5.     With ActiveWorkbook
   
6.         For Each sht In .Worksheets
   
7.             For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
   
8.                 If sht.Name = Cells(i, 1) And .Sheets.Count > 1 Then
   
9.                 '.Sheets.Count > 1 '¬¡­¶Ã¯¥²¶·¦³¤@±iªº¤u§@ªí¦s¦b.
   
10.                     sht.Delete
    
11.                 End If
    
12.             Next
    
13.         Next
    
14.     End With
    
15. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# asch2007

1. Sub §Rªí()
   
2.     Dim i As Integer, sht As Worksheet
   
3.     Worksheets("§Rªí¦W³æ").Activate
   
4.     Application.DisplayAlerts = False
   
5.     For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
   
6.         For Each sht In Worksheets
   
7.             If sht.name = Cells(i, 1) Then sht.Delete
   
8.         Next
   
9.     Next
   
10.     Application.DisplayAlerts = True
    
11. End Sub
    
12. Sub §Rªí2()
    
13. Dim i As Integer, sht As Worksheet
    
14.     Worksheets("§Rªí¦W³æ").Activate
    
15.     Application.DisplayAlerts = False
    
16.     For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    
17.         For Each sht In Worksheets
    
18.             If sht.name = Cells(i, 1) Then
    
19.                 sht.Delete
    
20.                 Exit For
    
21.             End If
    
22.         Next
    
23.     Next
    
24.     Application.DisplayAlerts = True
    
25. End Sub
    
26. Sub §Rªí3()
    
27.     Dim Sh As Worksheet, d As Object, a As Range
    
28.     Set d = CreateObject("Scripting.Dictionary")
    
29.     For Each Sh In Sheets
    
30.         Set d(Sh.name) = Sh '¼È¦s©Ò¦³¤u§@ªí
    
31.     Next
    
32.     Application.DisplayAlerts = False
    
33.     With Sheets("§Rªí¦W³æ") '±ý§R°£¦W³æ¤u§@ªí
    
34.         For Each a In .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp))
    
35.             If d.exists(CStr(a)) = True Then d(CStr(a)).Delete '¬°¨¾¤î¥H¼Æ¦r¬°¦Wªº¤u§@ªí¡A¬G¨Ï¥ÎCstrÂন¦r¦ê
    
36.         Next
    
37.     End With
    
38.     Application.DisplayAlerts = True
    
39. End Sub
    
40. Sub §Rªí_EX()
    
41.     Dim i As Integer
    
42.     Application.DisplayAlerts = False
    
43.     With Worksheets("§Rªí¦W³æ")
    
44.         On Error Resume Next
    
45.         For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
    
46.             .Parent.Sheets(.Cells(i, 1).Value).Delete
    
47.         Next
    
48.         On Error GoTo 0
    
49.     End With
    
50.     Application.DisplayAlerts = True
    
51. End Sub

½Æ»s¥N½X