lpk187

¦^´_ 3# eghost

1. Option Base 1
   
2. Public Sub Ex()
   
3. Dim ar()
   
4. n = 1
   
5. For Each Rng In [a1:b10]
   
6.     ReDim Preserve ar(n)
   
7.     ar(n) = Rng
   
8.     n = n + 1
   
9. Next
   
10. [a1:b10].ClearContents
    
11. [a1].Resize(UBound(ar)) = Application.Transpose(ar)
    
12. End Sub

½Æ»s¥N½X