Excel 递归表节点提取：快速获取所有子节点

要在 Excel 中将递归表的某个节点全部罗列出来，可以使用 Excel 的宏功能来实现。

下面是一个示例的 VBA 代码，它将递归表的某个节点及其所有子节点罗列出来：

Sub ListNodes()
    Dim sourceRange As Range
    Dim destinationRange As Range
    Dim currentNode As Range
    Dim parentNode As Range

    ' 设置源数据范围
    Set sourceRange = Range("A1:A10")
    
    ' 设置目标数据范围
    Set destinationRange = Range("C1")
    
    ' 设置根节点
    Set parentNode = Range("B1")
    
    ' 清空目标数据范围
    destinationRange.Resize(destinationRange.Rows.Count + 100).ClearContents
    
    ' 调用递归函数
    ListChildNodes parentNode, sourceRange, destinationRange
    
    MsgBox "节点已罗列完成。"
End Sub

Sub ListChildNodes(parentNode As Range, sourceRange As Range, destinationRange As Range)
    Dim childNode As Range
    Dim childNodeAddress As String
    
    ' 遍历源数据范围
    For Each childNode In sourceRange
        ' 判断当前节点是否为父节点的子节点
        If childNode.Offset(0, 1).Value = parentNode.Value Then
            ' 将当前节点添加到目标数据范围
            childNodeAddress = childNode.Address
            destinationRange.Value = childNode.Value
            Set destinationRange = destinationRange.Offset(1)
            
            ' 递归调用函数，继续查找当前节点的子节点
            ListChildNodes childNode, sourceRange, destinationRange
            
            ' 恢复目标数据范围的位置
            Set destinationRange = destinationRange.Offset(-1)
        End If
    Next childNode
End Sub

要使用上述代码，请按照以下步骤操作：

1. 打开 Excel 并按下 Alt + F11 打开 VBA 编辑器。
2. 在 VBA 编辑器中，选择 插入 -> 模块，然后将上述代码粘贴到新模块中。
3. 修改 ListNodes 子过程中的源数据范围 (sourceRange)、目标数据范围 (destinationRange) 和根节点 (parentNode)。
4. 按下 F5 键运行宏。
5. 查看目标数据范围，递归表的某个节点及其所有子节点将被罗列出来。

请根据实际情况修改代码中的范围和节点名称，以适应您的数据。