在工作表中以特定格式打印字典

Question

我创建了一个字典（动态的），以便能够在我的工作表中创建一个自动树结构。

我已经有了字典，并且想要以某种布局打印它。 我将通过一个示例对此进行解释：

假设我有以下字典，其中每个键的值是具有不同变量的类：

字典结构：

{key:class containing (name, if it is active/not, a dictionary with the 
keys of nodes inside this key)}

我的示例：

{1:(Parent 1, Active, {2,3,4}),2:(Child 1,Active,{}),3:(Child 2,Active, 
{}),4:(Parent 2,Active,{5}),5:(Child 3,Active,{6,7}),6:(Grandchild 
1,Active,{}),7:(Grandchild 2,Active,{})}

我想以与此类似的格式显示它（在VBA中编写代码）：

有什么主意吗？预先感谢！