Hsieh

¦^´_ 9# joslau

1. Sub ex()
   
2. Dim A As Range, B As Range, Rng As Range
   
3. With Sheet1
   
4. Set Rng = .Range("A:A").Find("DATA1", lookat:=xlWhole) '§äAÄæ¼ÐÃD¦C¦ì¸m
   
5. If Not Rng Is Nothing Then
   
6. If Application.Count(Rng.CurrentRegion.Columns(3)) > 0 Then '¸ê®ÆCÄæ¼Æ­È¼Æ¶q§PÂ_
   
7.    For Each A In Rng.CurrentRegion.Columns(3).SpecialCells(xlCellTypeConstants, 1) '¨C­Ó¼Æ­È°µ°j°é
   
8.      Set B = Rng.CurrentRegion.Columns(2).Find(A.Offset(, -2), lookat:=xlWhole) '§ä¨ìBÄæ²Ä¤@­Ó¦ì¸m
   
9.      If Not B Is Nothing Then A.Cut B.Offset(, 1) '²¾°Ê¦ì¸m
   
10.    Next
    
11. End If
    
12. End If
    
13. End With
    
14. End Sub

½Æ»s¥N½X