ikboy

VBA

1. Sub zz()
   
2. Dim ar, b, s$, k, t, m&, n&
   
3. ar = Split([a2].Value, Chr(10))
   
4. With CreateObject("vbscript.regexp")
   
5.     For i = 0 To UBound(ar)
   
6.         .Pattern = "[A-Z]+"
   
7.         k = .Execute(ar(i))(0)
   
8.         .Pattern = "\d+" & k
   
9.         t = .Execute(ar(i))(0)
   
10.         b = Split(Replace(.Replace(ar(i), ""), k, ""), "~")
    
11.         n = 0
    
12.         For j = b(0) To b(1)
    
13.             s = s & "|" & t & j: n = n + 1: m = m + 1
    
14.         Next
    
15.     Next
    
16.     [g3].Resize(m) = Application.Transpose(Split(Mid(s, 2), "|"))
    
17. End With
    
18. End Sub

½Æ»s¥N½X