求助EXCEL BOM 展开

zhangcheng6688

zhenghui13 发表于 2018-7-10 13:47
我一般是横向展开层级，仅供参考。

Public m, n
Sub Main()
t = Timer
MT = "JCCI03AEC00Y"
arr = Sheets("BOM").UsedRange
m = 1
Expand_BOM arr, MT

MsgBox (Timer - t)
End Sub

Sub Expand_BOM(arr, ByVal Str$)
For i = 2 To UBound(arr)
'    If i = 696 Then Stop
    If arr(i, 2) = Str Then
        Child = arr(i, 3)
        With Sheets("Expand")
            m = m + 1
            .Cells(m, 1) = arr(i, 1)
            n = arr(i, 1) + 1
            .Cells(m, n) = Child
            .Cells(m, 7) = arr(i, 7)
            Expand_BOM arr, Child
        End With
    End If
Next i
End Sub
应用了递归，高手