层级处理

zpy2

tomxie 发表于 2023-7-24 15:42
红色框框内 都错了。

是的 ，修改了一次。。。哈哈

准提部林

同层連續 及 節點 會不會超過10 ??

准提部林

先來個公式...限9級內//
C1//下拉
=IF(LEN(A2)>1,TRIM(LEFT(SUBSTITUTE(C1&".",".","."&REPT(" ",50),LEN(A2)-1),50)),)&-LOOKUP(,-INT(LEFT(0&TRIM(RIGHT(SUBSTITUTE("."&C1,".",REPT(" ",50),LEN(A2)),50)),ROW($1:$9))))+1

准提部林

不是算法...是三世因果接承法...法輪常轉//

Sub TEST_A1()
Dim Arr, i&, x%, T(99), V(99)
Arr = Range([a2], [a65536].End(3))
For i = 1 To UBound(Arr)
    x = InStrRev(Arr(i, 1), ".") + 1
    V(x) = V(x) + 1:  V(x + 1) = 0:   T(x + 1) = ""
    Arr(i, 1) = T(x - 1) & V(x)
    T(x) = Arr(i, 1) & "."
Next i
[c2].Resize(UBound(Arr)) = Arr
End Sub