EXCEL内树结构分级排成序列形式
答案:1 悬赏:60 手机版
解决时间 2021-04-07 22:37
- 提问者网友：疯孩纸
- 2021-04-07 06:23
EXCEL内树结构分级排成序列形式
最佳答案
- 五星知识达人网友：十鸦
- 2021-04-07 06:32
Sub test()
Dim Arr(0 To 10)
ro = Range("a1").End(4).Row
brr = Range("a1:a" & ro)
ReDim crr(1 To ro) As String
For i = 2 To ro
If brr(i, 1) < brr(i - 1, 1) Then
For j = brr(i, 1) + 1 To UBound(Arr)
Arr(j) = 0
Next j
End If
Arr(brr(i, 1)) = Arr(brr(i, 1)) + 1
crr(i) = Arr(1)
For j = 2 To brr(i, 1)
crr(i) = crr(i) & "." & Arr(j)
Next j
Next i
crr(1) = 0
Range("b1").Resize(ro) = Application.Transpose(crr)
End Sub
Dim Arr(0 To 10)
ro = Range("a1").End(4).Row
brr = Range("a1:a" & ro)
ReDim crr(1 To ro) As String
For i = 2 To ro
If brr(i, 1) < brr(i - 1, 1) Then
For j = brr(i, 1) + 1 To UBound(Arr)
Arr(j) = 0
Next j
End If
Arr(brr(i, 1)) = Arr(brr(i, 1)) + 1
crr(i) = Arr(1)
For j = 2 To brr(i, 1)
crr(i) = crr(i) & "." & Arr(j)
Next j
Next i
crr(1) = 0
Range("b1").Resize(ro) = Application.Transpose(crr)
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯