Hsieh

¦^´_ 4# asch2007

1. Sub ex()
   
2. Dim Sh As Worksheet
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For Each Sh In Sheets
   
5.   Set d(Sh.Name) = Sh '¼È¦s©Ò¦³¤u§@ªí
   
6. Next
   
7. With Sheets("¤u§@ªí1") '±ý§R°£¦W³æ¤u§@ªí
   
8.   For Each a In .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp))
   
9.      If d.exists(CStr(a)) = True Then d(CStr(a)).Delete '¬°¨¾¤î¥H¼Æ¦r¬°¦Wªº¤u§@ªí¡A¬G¨Ï¥ÎCstrÂন¦r¦ê
   
10.   Next
    
11. End With
    
12. End Sub

½Æ»s¥N½X