写一个 VBA 代码段的子程序。它的作用是将一个带有层级结构的列表转换为带有父级节点的树形结构，并将结果存储在列 C 中。

好的，我可以为您提供一个 VBA 代码段的子程序，可以将带有层级结构的列表转换为带有父级节点的树形结构，并将结果存储在列 C 中。

代码如下：

Sub ConvertListToTree()
Dim ws As Worksheet
Dim rng As Range
Dim lastRow As Long

Set ws = ActiveSheet ' 取当前工作表

lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row ' 获取数据的最后一行

Set rng = ws.Range("A1:A" & lastRow) ' 取数据的范围

' 将输入数据存储在数组中
Dim arr() As Variant
arr = rng.Value

Dim node As New Dictionary ' 用于存储每个节点及其相关信息
Dim root As String ' 用于存储根节点
Dim i As Long

' 初始化节点字典
For i = 1 To lastRow
node.Add arr(i, 1), Array(arr(i, 1), "", False)
Next i

' 构建树形结构
For i = 1 To lastRow
' 如果当前节点没有父节点，则它是根节点
If node(arr(i, 1))(1) = "" Then
node(arr(i, 1))(2) = True
root = arr(i, 1)
Else
' 如果当前节点有父节点，则将其添加到父节点的子节点列表中
node(arr(i, 1))(2) = True
node(node(arr(i, 1))(1))(2) = True
If node(node(arr(i, 1))(1))(1) = "" Then
node(node(arr(i, 1))(1))(1) = root
node(root)(2) = True
End If
node(node(arr(i, 1))(1))(3) = node(node(arr(i, 1))(1))(3) & arr(i, 1) & "/"
End If
Next i

' 将结果存储在列 C 中
For i = 1 To lastRow
ws.Range("C" & i).Value = node(arr(i, 1))(3)
Next i

End Sub

这个代码段将输入数据存储在数组中，使用一个字典来存储每个节点及其相关信息。然后它从数据中构建了一个树形结构，并将结果存储在列 C 中。这个代码段假设数据已经按照它们在树形结构中的顺序进行了排序。如果数据未排序，请在使用此代码段之前按照树形结构的顺序对数据进行排序。