父子项递归排序问题

yf_992258

如图，左边是原始数据，即已知条件，右边是需要输出的结果数据。意思是优先输出带子项的记录。
例如：A展开B，B中D，F可再次展开，先输出B展开到底带有父项的记录（即有子项），再输出不是父项的记录，B完成后输出F的情况，以此类推。不知道表达的清楚么。
请教一下，哪位写个实例指导一下，谢谢

yes_cn

这让我想起那个星宿大仙有多少后代的帖子。

ynzsvt

1. Dim d As Dictionary
   
2. Sub Main()
   
3. Set d = New Dictionary
   
4. ar = Range("a2:c" & 18).Value
   
5. For i = 2 To UBound(ar)
   
6.   If Not d.Exists(ar(i, 2)) Then Set d(ar(i, 2)) = New Dictionary
   
7.   d(ar(i, 2))(ar(i, 1)) = ar(i, 3)
   
8. Next
   
9. DFS 0, 19, 5
   
10. End Sub
    
11. 
    
12. Sub DFS(pID, ByRef r, c)
    
13. For Each ID In d(pID).Keys
    
14.   '  Cells(r, c) = Cells(ID + 2, 3).Value
    
15.   Cells(r, c).Resize(1, 3) = Array(ID, pID, d(pID)(ID))
    
16.   If d.Exists(ID) Then r = r + 1: Call DFS(ID, r, c) Else r = r + 1
    
17. Next
    
18. End Sub

复制代码

ynzsvt

子父项递归

一招秒杀

1句 搞定，一气呵成

cnmlgb9998

不就是 加个 按子项数量排序吗？！

zpy2

//select * from Sheet1;
cli_add_css~td{text-align:left;};
with recursive under_alice(父,子,完整路径,级) as (select 父,子,子 完整路径,1 级 from Sheet1 where 父 like "A" union select x.父,x.子,under_alice.完整路径||'-'||x.子,级+1 from Sheet1 x join under_alice on x.父=under_alice.子 order by 1 desc)  
select 父 父项,substr('............',1,级*3)||子 子项,完整路径,* from under_alice;

ynzsvt

Sheet2，模块3