这个简单的数据转换帮忙看看

tanglf188

参与一下

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&, k&, r&
   
    ar = [A1].CurrentRegion.Value
    ReDim br(1 To 10 ^ 3, 0)
    For i = 2 To UBound(ar)
        For j = 2 To UBound(ar, 2)
            For k = 1 To ar(i, j)
                r = r + 1
                br(r, 0) = ar(i, 1) & ar(1, j)
            Next k
        Next j
    Next i
    [G1].Resize(r) = br
    Beep
End Sub

gwjkkkkk

请参考。。。

swl4561255

1. Private Sub CommandButton1_Click()
   
2. Dim i, j, k, ar, br As Integer
   
3. Dim brr()
   
4. ar = [H6].End(4).Row
   
5. br = [H6].End(2).Column
   
6. arr = Range(Cells(6, 8), Cells(ar, br))
   
7. For i = 2 To ar - 5
   
8.    For j = 2 To br - 7
   
9.       For k = 1 To arr(i, j)
   
10.         m = m + 1
    
11.         ReDim Preserve brr(1 To m)
    
12.         brr(m) = arr(i, 1) & arr(1, j)
    
13.       Next
    
14.    Next
    
15. Next
    
16. [O2].Resize(m, 1) = Application.Transpose(brr)
    
17. End Sub

复制代码