父子结构改变为树状

onlydave

求大佬帮忙把附件中表格 sheet1 按照父子关系转成树状（如sheet2）所示

onlydave

求大佬帮助一下

microyip

论坛里有很多这种BOM需求案例，搜索一下参考

onlydave

microyip 发表于 2020-9-26 08:05
论坛里有很多这种BOM需求案例，搜索一下参考

试过，我还把我的数据复制进去，然后各种报错

ggmmlol

看我的：
BOM表展开成树型以及物料的子系查询的相关计算
http://club.excelhome.net/thread-1443505-1-1.html
(出处: ExcelHome技术论坛)

microyip

onlydave 发表于 2020-9-26 08:55
试过，我还把我的数据复制进去，然后各种报错

你这个BOM表有点点那个奇葩，一个子产品对应多个父产品

yjh_27

onlydave 发表于 2020-9-26 08:55
试过，我还把我的数据复制进去，然后各种报错

1. Sub aa()
   
2. r = Sheets("Sheet1").Range("a" & Rows.Count).End(xlUp).Row
   
3. arr = Sheets("Sheet1").Range("a2:b" & r)
   
4. brr = BOMSort(arr, 1, 2, -3)
   
5. crr = BOMLevel(brr, 3, , 0, , , -2)
   
6. Sheets("Sheet2").Range("a32").Resize(UBound(crr), UBound(crr, 2)) = crr
   
7. End Sub

复制代码

BOM 大纲排序-自定义函数 37L
http://club.excelhome.net/thread-1175717-1-1.html
(出处: ExcelHome技术论坛)

zpy2

这个表总共65536行吗？
这个是模拟数据，还是真实数据？有这么大的bom?

Xch18861822165

求问怎么根据这样的BOM序号来分组查看