层数显示

wanderlust01

大家好，求助个问题：想让单元格A列的数值根据B列前面的空格来自动显示层数，这个应该怎么写代码，如图，

层数显示.rar (7.2 KB, 下载次数: 21)

2014-11-14 13:09 上传

点击文件名下载附件

附件已经上传了，帮忙看下，非常感谢。

jsxjd

1. Private Sub CommandButton1_Click()
   
2.     r1 = 0
   
3.     For i = 1 To [b65536].End(xlUp).Row
   
4.         n = Len(Cells(i, 2)): n1 = Len(Trim(Cells(i, 2)))
   
5.         If n - n1 = 0 Then r1 = r1 + 1: r2 = 0: r3 = 0: Cells(i, 1) = r1
   
6.         If n - n1 = 1 Then r2 = r2 + 1:  r3 = 0: Cells(i, 1) = r1 & "." & r2
   
7.         If n - n1 = 2 Then r3 = r3 + 1: Cells(i, 1) = r1 & "." & r2 & "." & r3
   
8.     Next
   
9. End Sub
   

复制代码

jsxjd

AA.rar (10.33 KB, 下载次数: 25)

2014-11-14 14:03 上传

点击文件名下载附件

wanderlust01

jsxjd 发表于 2014-11-14 14:03

非常感谢，实测可用，赞一个！

yjh_27

按序号为分级显示自动创建组  按分级显示的组合自动编序号  18L
http://club.excelhome.net/thread-1098513-1-1.html

蓝桥玄霜

1. Sub lqxs()
   
2. Dim i&, Brr, k2, t2, j&, aa, a
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. Set d1 = CreateObject("Scripting.Dictionary")
   
5. Sheet1.Activate
   
6. [a:a].ClearContents
   
7. Myr = Cells(Rows.Count, 2).End(xlUp).Row
   
8. Arr = Range("b1:b" & Myr)
   
9. ReDim Brr(1 To UBound(Arr), 1 To 1)
   
10. For i = 1 To UBound(Arr)
    
11.     n = Len(Left(Arr(i, 1), Len(Arr(i, 1)) - 4))
    
12.     d(n) = d(n) & i & ","
    
13. Next
    
14. k = d.keys: t = d.items
    
15. For i = 0 To UBound(k)
    
16.     If i = 0 Then
    
17.         Call yy0(t(i), i)
    
18.     Else
    
19.         Call yy(t(i), i)
    
20.     End If
    
21. Next
    
22. End Sub
    
23. 
    

复制代码

蓝桥玄霜

请见附件。