提取数字。

wangg913

用代码吧。

1. Private Sub CommandButton1_Click()
   
2.     Dim vntD
   
3.     Dim strD() As String
   
4.     Dim A, B, C, D, E, T
   
5.     Dim bytCnt(4) As Byte
   
6.    
   
7.     vntD = Range("A2").CurrentRegion.Value
   
8.     For A = 1 To UBound(vntD, 2)
   
9.         T = 0
   
10.         For B = 1 To UBound(vntD)
    
11.            If vntD(B, A) <> "" Then T = T + 1
    
12.         Next
    
13.         bytCnt(A - 1) = T
    
14.     Next
    
15.     ReDim strD(bytCnt(0) - 1, bytCnt(1) * bytCnt(2) * bytCnt(3) * bytCnt(4) - 1)
    
16.    
    
17.     For A = 1 To bytCnt(0)
    
18.         T = 0
    
19.         For B = 1 To bytCnt(1)
    
20.             For C = 1 To bytCnt(2)
    
21.                 For D = 1 To bytCnt(3)
    
22.                     For E = 1 To bytCnt(4)
    
23.                         strD(A - 1, T) = vntD(A, 1) & vntD(B, 2) & vntD(C, 3) & vntD(D, 4) & vntD(E, 5)
    
24.                         T = T + 1
    
25.                     Next
    
26.                 Next
    
27.             Next
    
28.         Next
    
29.     Next
    
30.     Range("G2").Resize(UBound(strD, 2) + 1, bytCnt(0)) = WorksheetFunction.Transpose(strD)
    
31. End Sub

复制代码

wangg913

附件。。。。