自娱自乐

yeminqiang

分出上下级.zip (12.96 KB, 下载次数: 7)

2017-7-14 20:53 上传

点击文件名下载附件

香川群子

这个并不难。

在递归过程中灵活使用循环遍历，即可达到目的。

yeminqiang

香川群子 发表于 2017-7-14 21:21
这个并不难。

在递归过程中灵活使用循环遍历，即可达到目的。

还是希望群子女侠能帮忙写一个代码，凭我的水平，真弄不出来啊.....

小花鹿

是不是这个意思：
Sub test()
Dim ar, d, i&, dk, di, n&, tm
Set d = CreateObject("scripting.dictionary")
ar = [a1].CurrentRegion
For i = 1 To UBound(ar)
    d(ar(i, 1)) = ar(i, 2)
Next i
dk = d.keys: di = d.items
For i = 0 To UBound(dk)
    n = n + 1
    Cells(i + 18, n) = dk(i)
    n = n + 1
    Cells(i + 18, n) = di(i)
    Call digui(d, di(i), i, n)
    n = 0
Next i
End Sub
Sub digui(d, tm, i, n)
Dim s, j&
s = Split(tm, ",")
For j = 0 To UBound(s)
    If d.exists(s(j)) Then
        n = n + 1
        Cells(i + 18, n) = d(s(j))
        Call digui(d, d(s(j)), i, n)
    End If
Next j
End Sub

yeminqiang

小花鹿 发表于 2017-7-15 13:28
是不是这个意思：
Sub test()
Dim ar, d, i&, dk, di, n&, tm

首先，感谢小花鹿的帮助。
答案还有点出入，比如，
张良---彭占民,牛朝永,张克从,王利亚---
彭占民,牛朝永,张克从,王利亚   这四个人其实都要一级一级展开的，如下：


第1级别：张良
第2级别：彭占民,牛朝永,张克从,王利亚
第3级别：（下面是并列的）
彭占民的下级为---张建智;
牛朝永的下级为---贾贝,王印旗,郭志辉,王琪,吴建宏,杜彦士,彭亚卫,邸长虹,袁晓瑜;张克从的下级为---闫振群,李永强,马驰洋,郭俭,高彩云,杨国贞,陈士勇,邸士民,曹拥军,陈运钗,崔彦军,刘丽芝,李亚民,李田周,袁芸,杜涛；
王利亚的下级为---张晓丽,李子文,曹建恒,陈梦兰,刘圆,郭彩恋,常立军,刘彦平,杨晓明,宋丽永,纪永存,赵亚平;
第4级别：
张建智的下级为---贾红丽,曹彩珍,曹彦敏,张振其,刘志宏,刘芳,杨涛,赵永胜,曹永超,李子永
第5级别没有,因为第4级别的姓名当中在A列或字典当中没有存在的......

yeminqiang

小花鹿 发表于 2017-7-15 13:28
是不是这个意思：
Sub test()
Dim ar, d, i&, dk, di, n&, tm

首先，感谢小花鹿的帮忙，结果还有一点出入。
以  

张良	彭占民,牛朝永,张克从,王利亚

为例子，其一级一级张开如下：第一级别：张良

第二级别：彭占民,牛朝永,张克从,王利亚


第三级别：
彭占民对应的下级----张建智
牛朝永对应的下级---贾贝,王印旗,郭志辉,王琪,吴建宏,杜彦士,彭亚卫,邸长虹,袁晓瑜
张克从对应的下级---闫振群,李永强,马驰洋,郭俭,高彩云,杨国贞,陈士勇,邸士民,曹拥军,陈运钗,崔彦军,刘丽芝,李亚民,李田周,袁芸,杜涛
王利亚对应的下级---张晓丽,李子文,曹建恒,陈梦兰,刘圆,郭彩恋,常立军,刘彦平,杨晓明,宋丽永,纪永存,赵亚平


第四级别：只有张建智有对应的下级，所以就是--张建智对应的下级
贾红丽,曹彩珍,曹彦敏,张振其,刘志宏,刘芳,杨涛,赵永胜,曹永超,李子永


第五级别没有对应的，所以没有