怎么通过已有的【分级】返回树状序号

【名臣】

怎么通过已有的【分级】返回树状序号
详见附件，求救各位高手
工作簿1.rar (8.73 KB, 下载次数: 355)

2014-2-28 13:13 上传

点击文件名下载附件

【名臣】

自己顶一下

yjh_27

请移步


l按序号自动分级显示
http://club.excelhome.net/thread-1098513-1-1.html

yjh_27

1. Sub bb()
   
2. Dim brr(8)
   
3. r = Range("b" & Rows.Count).End(xlUp).Row
   
4. 
   
5. arr = Range("a1:a" & r)
   
6. 
   
7. ji = 0
   
8. brr(0) = 2          '起始行
   
9. For i = brr(0) To UBound(arr, 1)
   
10.     jis = Rows(i).OutlineLevel
    
11.     If jis < ji Then
    
12.         For j = jis + 1 To 8
    
13.             If brr(j) > 0 Then brr(j) = 0 Else Exit For
    
14.         Next
    
15.     End If
    
16.     ji = jis
    
17.     brr(jis) = brr(jis) + 1
    
18.     arr(i, 1) = ""
    
19.     For j = 1 To jis
    
20.         arr(i, 1) = arr(i, 1) & "." & brr(j)
    
21.     Next
    
22.     arr(i, 1) = Mid(arr(i, 1), 2)
    
23.         
    
24.    
    
25. Next
    
26. 
    
27. Range("a1:a" & r) = arr
    
28. End Sub
    
29. 
    

复制代码

【名臣】

yjh_27 发表于 2014-2-28 17:17

非常棒。。。谢谢。。

wubiao0915

请教一下，您是怎么实现分级显示的？

zoellj

已有组合层级，如何返回树状序号呢？