ikboy

1. Sub zz()
   
2. Dim s$, sp$, b(), ar, n&
   
3. sp = "¡i"
   
4. ar = Range("a1:a" & Cells(Rows.Count, 1).End(3).Row).Value
   
5. ReDim b(1 To UBound(ar) * 2, 1 To 1)
   
6. For i = 1 To UBound(ar)
   
7.     a = Split(ar(i, 1), sp)
   
8.     For ii = 1 To UBound(a)
   
9.         n = n + 1
   
10.         b(n, 1) = sp & a(ii)
    
11.     Next
    
12. Next
    
13. [b1].Resize(n) = b
    
14. End Sub

½Æ»s¥N½X