将数字设置为多级树

Question

我需要根据层次结构 (col B:D) 在 F 列中生成数字。下面是 excel 示例和我应该得到的 result/values。

我只知道如何显示 Level1 的值。这是我的代码：

ws_c = ws1.Cells(ws1.Rows.Count, "D").End(xlUp).Row
Dim Lev1 As Long, Lev2 As Long, Lev3 As Long
Lev1 = 1
    For i = 3 To ws_c        
        If ws1.Range("B" & i).Value <> "" Then
           ws1.Range("F" & i).Value = Lev1
           Lev1 = Lev1 + 1
        End If
    Next

Answer 1

我终于做到了：

For i = 3 To ws_c
    '**************************************************************** L1
    If ws1.Range("B" & i).Value <> "" Then
       ws1.Range("F" & i).Value = Lev1
       Lev1 = Lev1 + 1
       Lev2 = 100
    End If
    '**************************************************************** L1.1
    If ws1.Range("C" & i).Value <> "" Then
        ws1.Range("F" & i).Value = Lev2 + Lev1 - 1
        Lev2 = Lev2 + 100            
        Lev3 = 10000
    End If
    '**************************************************************** L1.1.1
    If ws1.Range("D" & i).Value <> "" Then
        ws1.Range("F" & i).Value = Lev3 + Lev1 - 1 + Lev2 - 100
        Lev3 = Lev3 + 10000
    End If
Next

将数字设置为多级树

Set up numbers into MultiLevel tree

excel

tree

vba

binary-tree

multi-level