[µo°Ý] ¨D§U°ª¤â¡A«ü©w­È·j´M«á½Æ»s¦P¦C»P¤U¤@¦C

wsken

¨D§UªO¤W°ª¤â¡A¦p¦ó·j´M«ü©w­È«á½Æ»s¦P¦C»P¤U¤@¦C
¹Ï¥Ü¦p¤U

¤U¸ü (83.6 KB)

2013-1-26 02:53

¶·§ä¥X·í¤éªº2­Ó­Èªº³]©w«á¡A¦A§â·í¤é»P¦¸¤éªº¸ê®Æ¤@°_½Æ»s¥X¨Ó¡A
¦bªO¤Wª¦¤F«Ü¦h¤å¡AÁÙ¬O¤£·|¼g¤½¦¡¡A½Ð°Ý¦³°ª¤â¥i¥H±Ð¾Ç¶Ü?

Book1.rar (7.48 KB)

¤U¸ü¦¸¼Æ: 9

2013-1-26 02:55

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