如何使用VBA填充所有权链中的全部成员？

核心思路 #

通过递归遍历结合集合去重，从顶层所有者出发，逐层收集所有直接和间接下属成员，最终整理成指定格式的输出。

完整VBA代码 #

Sub GetFullOwnershipChain()
    ' 1. 初始化所有权关系字典（键=所有者，值=直接下属集合）
    Dim ownershipDict As Object
    Set ownershipDict = CreateObject("Scripting.Dictionary")
    
    ' 填充示例数据：B拥有A、C；A拥有D；C拥有E、F
    ownershipDict("B") = Array("A", "C")
    ownershipDict("A") = Array("D")
    ownershipDict("C") = Array("E", "F")
    ' 实际使用时可替换为从单元格/数据库读取数据
    
    ' 2. 指定顶层所有者，初始化成员集合
    Dim topOwner As String
    topOwner = "B"
    
    Dim allMembers As Collection
    Set allMembers = New Collection
    
    ' 调用递归函数收集所有成员
    CollectAllMembers topOwner, ownershipDict, allMembers
    
    ' 3. 整理输出格式
    Dim outputStr As String
    outputStr = topOwner & ": "
    Dim member As Variant
    For Each member In allMembers
        outputStr = outputStr & member & ", "
    Next
    ' 移除末尾多余的逗号和空格
    outputStr = Left(outputStr, Len(outputStr) - 2)
    
    ' 输出结果（可替换为写入Excel单元格或保存到文件）
    MsgBox outputStr
End Sub

' 递归函数：收集指定所有者的所有直接/间接下属
Private Sub CollectAllMembers(currentOwner As String, ownershipDict As Object, allMembers As Collection)
    ' 如果当前所有者有下属，遍历每个下属
    If ownershipDict.Exists(currentOwner) Then
        Dim subMember As Variant
        For Each subMember In ownershipDict(currentOwner)
            ' 检查是否已存在该成员，避免重复添加
            Dim isDuplicate As Boolean
            isDuplicate = False
            Dim existingMember As Variant
            For Each existingMember In allMembers
                If existingMember = subMember Then
                    isDuplicate = True
                    Exit For
                End If
            Next
            
            If Not isDuplicate Then
                allMembers.Add subMember
                ' 递归收集该下属的下属
                CollectAllMembers subMember, ownershipDict, allMembers
            End If
        Next
    End If
End Sub

代码说明 #

• 字典存储关系：ownershipDict用来映射所有者和直接下属的对应关系，键为所有者名称，值为下属数组，可根据实际数据源动态填充。
• 递归遍历逻辑：CollectAllMembers函数会先处理当前所有者的直接下属，添加到集合后继续递归遍历该下属的所有下属，直到无下属可遍历为止。
• 去重处理：通过遍历集合检查成员是否已存在，避免交叉持股或循环关系导致的重复添加。
• 输出灵活调整：最终输出格式可根据需求修改，比如写入Excel的指定单元格、生成文本报告等。

扩展建议 #

• 如果所有权关系存储在Excel表格中（如A列存所有者，B列存对应下属），可添加代码从单元格批量读取数据填充字典，无需手动初始化。
• 若数据量极大，递归可能引发栈溢出，可改用迭代循环+队列的方式替代递归，提升稳定性。

内容的提问来源于stack exchange，提问作者Heather