怎样实现excel的树形编号？？？ 谢谢了!!!!!!!!!!!!!!!!!!!!

Question

在excel中第一列为序号，有一button1，如下： 
序号  
  1 
  2 
  2.1 
  2.2 
  2.2.1 
  3 
所选中的单元格中如果有序号，比如说2，那么就会产生新的序号2.1，继续点button，就会产生2.2，如果选中的单元格为2.2。那么点击button，产生新的序号为2.2.1,这个该怎么实现啊？

Answer 1

    excel中有自动编码的公式的,你可以查找调用

Answer 2

还是不明白，

Quote:

比如说2，那么就会产生新的序号2.1，继续点button，就会产生2.2，

Quote:

提供一点参考代码，编码规则需要自己定：
Private Sub CommandButton1_Click()
    On Error Resume Next
    Dim Rng As Range
    Set Rng = Application.Selection
    Application.EnableEvents = False
    '插入新行
    ActiveSheet.Rows(Rng.Row + 1 & ":" & Rng.Row + 1).Insert Shift:=xlDown
    Rng.Offset(1, 0).Value = Rng.Value & ".1" '编码规则自己确定
    Application.EnableEvents = True
End Sub

Answer 3

比如说2，那么就会产生新的序号2.1，继续点button，就会产生2.2
就是这个意思，谢谢了，能不能给一个完整的代码，我好好研究一下！