­ã´£³¡ªL

°ò¥»ªº¡e¿z¿ï¡fªk¡G

1. Sub ¿z¿ï¶K¤J()
   
2. Dim xStr$, xS As Worksheet, xName$, xE As Range
   
3. With ActiveSheet
   
4. ¡@¡@Range(.[A1], .UsedRange).Offset(4, 0).EntireRow.Delete
   
5. ¡@¡@xName = .Name
   
6. ¡@¡@xStr = .[B1]
   
7. ¡@¡@If xStr = "" Then Exit Sub
   
8. End With
   
9. ¡@
   
10. For Each xS In Sheets
    
11. ¡@If xS.Name <> xName Then
    
12. ¡@¡@¡@With xS.UsedRange
    
13. ¡@¡@¡@¡@¡@.AutoFilter Field:=1, Criteria1:=xStr
    
14. ¡@¡@¡@¡@¡@.Offset(1, 0).Copy [A65536].End(xlUp)(2)
    
15.        ¡@ End With
    
16. ¡@¡@¡@xS.AutoFilterMode = False
    
17. ¡@End If
    
18. Next
    
19. End Sub

½Æ»s¥N½X

¡@
ªþ¥ó¤U¸ü¡G
Xl0000101.rar (10.48 KB)

¤U¸ü¦¸¼Æ: 9

2015-9-15 17:05

¡@