急求指教 數字組 () 括號分折

adrian_9832

請問各位網友  我有個資料如下:

A1
2103(1,3-5,9-0)

怎麼可以用VBA 或 方程 變成以下的資料?

21031
21033
21034
21035
21039
21030

liulang0808

1. Sub 按钮1_Click()
   
2.     Dim brr()
   
3.     str1 = Split([a1], "(")(0)
   
4.     arr = Split(Split(Split([a1], ")")(0), "(")(1), ",")
   
5.     a = 1
   
6.     For j = 0 To UBound(arr)
   
7.         If InStr(arr(j), "-") > 0 Then
   
8.             crr = Split(arr(j), "-")
   
9.             If Val(crr(0)) < Val(crr(1)) Then
   
10.                 For x = Val(crr(0)) To Val(crr(1))
    
11.                     ReDim Preserve brr(1 To a)
    
12.                     brr(a) = str1 & x
    
13.                     a = a + 1
    
14.                 Next x
    
15.             Else
    
16.                 For x = 0 To 1
    
17.                     ReDim Preserve brr(1 To a)
    
18.                     brr(a) = str1 & crr(x)
    
19.                     a = a + 1
    
20.                 Next x
    
21.             End If
    
22.         Else
    
23.             ReDim Preserve brr(1 To a)
    
24.             brr(a) = str1 & arr(j)
    
25.             a = a + 1
    
26.         End If
    
27.     Next j
    
28.     [d1].Resize(a - 1) = WorksheetFunction.Transpose(brr)
    
29. End Sub

复制代码