white945

¦^´_ 1# asoonla

1. Sub ¤À³Î()
   
2. Dim Ay(), A As Range, Ar As Variant, C As Variant, s&
   
3. For Each A In Selection
   
4.    Ar = Split(A, Chr(10))
   
5.    For Each C In Ar
   
6.       ReDim Preserve Ay(2, s)
   
7.       Ay(0, s) = C: Ay(1, s) = A.Offset(, 1).Value
   
8.       s = s + 1
   
9.    Next
   
10. Next
    
11. Selection(1).Resize(s, 2) = Application.Transpose(Ay)
    
12. End Sub

½Æ»s¥N½X