Hsieh

¦^´_ 1# wsken

1. Sub ex()
   
2. Dim Rng As Range, Rng1 As Range
   
3. w = [W2] + 1: x = [X2] + 1
   
4. For Each a In Range([A3], [A3].End(xlDown))
   
5.     If a.Offset(, w) <> "" And a.Offset(, x) <> "" Then
   
6.        If Rng Is Nothing Then
   
7.        Set Rng = a.Resize(, 20)
   
8.        Set Rng1 = a.Offset(1).Resize(, 20)
   
9.        Else
   
10.        Set Rng = Union(Rng, a.Resize(, 20))
    
11.        Set Rng1 = Union(Rng1, a.Offset(1).Resize(, 20))
    
12.        End If
    
13.     End If
    
14. Next
    
15. If Not Rng Is Nothing Then
    
16.    Rng.Copy [W3]
    
17.    Rng1.Copy [W3].Offset(Rng.Rows.Count + 3)
    
18. End If
    
19. End Sub

½Æ»s¥N½X