关于字典Dictionary与Parent的解惑，还望大家不吝赐教，谢谢。

ning84

        With Sht
            Set Rng = .Cells(1, 1).CurrentRegion
        End With
        With Rng
             Debug.Print .Address, .Parent.Name, .Parent.Parent.Name, .Parent.Parent.Parent.Name
        End With

*************************
结果
$A$1:$I$5     Tmp           中国东西南北城市.xls         Microsoft Excel
一个Parent--表
2个Parent--Excel文件
3个Parent--Microsoft Excel

ning84

        With Sht
            Set Rng = .Cells(1, 1).CurrentRegion
        End With
        With Rng
             Debug.Print .Address, .Parent.Name, .Parent.Parent.Name, .Parent.Parent.Parent.Name
        End With

*************************
结果
$A$1:$I$5     Tmp           中国东西南北城市.xls         Microsoft Excel
一个Parent--表
2个Parent--Excel文件
3个Parent--Microsoft Excel

ning84

        With Sht
            Set Rng = .Cells(1, 1).CurrentRegion
        End With
        With Rng
             Debug.Print .Address, .Parent.Name, .Parent.Parent.Name, .Parent.Parent.Parent.Name
        End With

*************************
结果
$A$1:$I$5     Tmp           中国东西南北城市.xls         Microsoft Excel
一个Parent--表
2个Parent--Excel文件
3个Parent--Microsoft Excel

gwjkkkkk

limonet 发表于 2022-2-26 14:49
想想还是有的疑惑：如果Dic(F.Parent) =""不成立，那最后结果为什么还会有一个?

你这个表达是计算过程，dic(f.parent)判断时，字典对dic(f.parent)进行计算，因为没有f.parent这个key,故字生成了一个key为f.parent的字典，item为空值，所以结果还是会有一个。