ikboy

1. Sub zz()
   
2. Dim a, b(), k, n&
   
3. a = [a2:a3].Value
   
4. ReDim b(1 To UBound(a), 1 To 10)
   
5. With CreateObject("vbscript.regexp")
   
6.     .Pattern = ".*?fee\$(\d+)"
   
7.     .Global = True
   
8.     .ignorecase = True
   
9.     For i = 1 To UBound(a)
   
10.         If .test(a(i, 1)) Then
    
11.             k = Split(.Replace(a(i, 1), "$1|"), "|")
    
12.             n = IIf(UBound(k) > n, UBound(k), n)
    
13.             For j = 0 To UBound(k) - 1
    
14.                 b(i, j + 1) = k(j)
    
15.             Next
    
16.         End If
    
17.     Next
    
18.     [b2].Resize(i - 1, n) = b
    
19. End With
    
20. End Sub

½Æ»s¥N½X