Hsieh

¦^´_ 1# b9208

1. Sub ex()
   
2. Dim A As Range, Rng As Range
   
3. With ¤u§@ªí1
   
4. Set Rng = .[A1:G1]
   
5. For Each A In .Range("E:E").SpecialCells(xlCellTypeConstants)
   
6.   If (A.Offset(, -3) = "ABC" Or A.Offset(, -3) = "QWE") And (A.Offset(, -2) = "AA" Or A.Offset(, -2) = "BB") Then Set Rng = Union(Rng, A.Offset(, -4).Resize(, 7))
   
7. Next
   
8. With ¤u§@ªí2
   
9. .Range(.[A3], .[A3].End(xlDown).Offset(, 6)).Clear
   
10. Rng.Copy .[A3]
    
11. .Range(.[A3], .[A3].End(xlDown).Offset(, 6)).Sort key1:=.[A3], Header:=xlYes
    
12. End With
    
13. End With
    
14. End Sub

½Æ»s¥N½X