简单的顺序 求如何简化

longwin

Sub test()
Set d = CreateObject("scripting.dictionary")
arr = Sheets("数据1").[a1].CurrentRegion
For i = 2 To UBound(arr)
If Not d.exists(arr(i, 2)) Then Set d(arr(i, 2)) = CreateObject("scripting.dictionary")
If Not d(arr(i, 2)).exists(arr(i, 1)) Then Set d(arr(i, 2))(arr(i, 1)) = CreateObject("scripting.dictionary")
d(arr(i, 2))(arr(i, 1))(arr(i, 3)) = arr(i, 4)
Next
ReDim brr(1 To 100, 1 To 20)
m = 0
j = 0
For Each gc In d.keys()
    For Each xh In d(gc).keys()
    m = 1
    j = Right(xh, 1) * 2
        For Each bh In d(gc)(xh).keys
        m = m + 1
        brr(m, 1) = gc
        brr(1, j) = xh
        brr(m, j) = bh
        'brr(m, j + 1) = d(gc)(xh)(bh)
        Next
    Next
Next
Sheets("导出分解").[a1].Resize(m, 20) = brr
End Sub

sdytsxd991122

发发哥abc

sdytsxd991122 发表于 2024-7-30 15:02

估计能跑。楼上各位都避开了arr1,arr2,arr3,arr4,arr5,arr6.....数组名称的事儿

发发哥abc

longwin 发表于 2024-7-30 14:42
Sub test()
Set d = CreateObject("scripting.dictionary")
arr = Sheets("数据1").[a1].CurrentRegion

有这个就全了

longwin

现在的数据里面没有，有的话会出现

ynzsvt

发发哥abc 发表于 2024-7-30 13:28
j = Dic(St): Brr(j, 0) = 9，，为啥brr(j,0)=9,为啥是9？   知道了

第一个编号输出在第9列