ikboy

1. Sub zz()
   
2. Dim a, b(), t, n&
   
3. a = [a1].CurrentRegion
   
4. ReDim b(1 To 1048576, 1 To 2)
   
5. For i = 2 To UBound(a)
   
6.     t = Split(a(i, 2), Chr(10))
   
7.     For j = 0 To UBound(t)
   
8.         n = n + 1
   
9.         b(n, 1) = a(i, 1)
   
10.         b(n, 2) = t(j)
    
11.     Next
    
12. Next
    
13. [d1:e1] = a
    
14. [d2].Resize(n, 2) = b
    
15. End Sub

½Æ»s¥N½X