关于父项和子项的求助，感谢高手！

taizhoexcelhome

关于父项和子项的求助，感谢高手！

512008404

参与一下！

Sub 排序()
    On Error Resume Next
    For i = 2 To 17
        k = 1
        For j = i + 1 To Range("A1").End(xlDown).Row
            If InStr(1, Cells(j, "A"), Cells(i, "B")) Then '父项名称中包含子项名称
                Rows(j).Cut
                Rows(i + k).Insert Shift:=xlDown
                k = k + 1
            End If
        Next j
        i = i + k - 1
    Next i
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

liulang0808

关于楼主这个需求，论坛里也有雷同案例可以参考
当前附件，结果跟原始数据不是完全吻合
还有就是父子关系仅有父-子-子这样的，不会再有进一步延申么？

蓝桥玄霜

子项的例子：

taizhoexcelhome

蓝桥玄霜 发表于 2023-7-23 10:36
子项的例子：

版主，您好! 感谢您的参与！方便把程序代码电子版给我一下，感谢

taizhoexcelhome

liulang0808 发表于 2023-7-23 10:33
关于楼主这个需求，论坛里也有雷同案例可以参考
当前附件，结果跟原始数据不是完全吻合
还有就是父子关系 ...

版主，您好，这个有好几级的，不止3级，有些6-7级的，我vba不是很熟悉，麻烦您帮我解决一下。

就是根据sheets1 这个工作部工，第一列是父级，第二列是子集，如果在第一列某单元格内容跟第二列的某单元格内容一样，那么内容相同的第一列中的某行安顺序直接插入到第二列相同单元格内容的某行后面。
万分感谢！

taizhoexcelhome

蓝桥玄霜 发表于 2023-7-23 10:36
子项的例子：

版主，您好，您给的代码？我测试了有问题，是不是我哪里弄错了，因为我不是很懂vba所以麻烦您帮我看看，要求如下：
这个有好几级的父-子，有些6-7级的。
就是根据sheets1 这个工作表，第一列是父级，第二列是子集，如果在第一列某单元格内容跟第二列的某单元格内容一样，那么内容相同的第一列中的某行安顺序直接插入到第二列相同单元格内容的某行后面。
万分感谢！

zpy2

//select * from bom递归树形查询 limit 20;
with recursive under_alice(父,子,数量,level) as (select 父,子,数量,1 level from bom递归树形查询 a where not exists (select 子 from bom递归树形查询 b where a.父=b.子) union all select
x.父,x.子,x.数量,level+1 from bom递归树形查询 x join under_alice on x.父 =under_alice.子 order by level desc)
select level,父,子,数量 from under_alice;

zpy2

zpy2 发表于 2023-7-24 08:23
//select * from bom递归树形查询 limit 20;
with recursive under_alice(父,子,数量,level) as (select  ...

with recursive under_alice(父,子,数量,level) as (select 父,子,数量,1 level from bom递归树形查询 a where 父 like '平台钢管装置') union all select
x.父,x.子,x.数量,level+1 from bom递归树形查询 x join under_alice on x.父 =under_alice.子 order by level desc)
select level,父,子,数量 from under_alice;

taizhoexcelhome

zpy2 发表于 2023-7-24 08:27
with recursive under_alice(父,子,数量,level) as (select 父,子,数量,1 level from bom递归树形查询 a  ...

老师，您好~您这个代码怎么写呢？