怎么让excel按序号自动分组【已解决】

feng1989

公司有策略管理，上不了图片，简单 说下如下：
1
1.1
1.2
1.2.1
1.2.2
1.3
2
2.1
如上那些序号，要把1、2分成一组，1.1、1.2、1.3分开一组，1.2.1、1.2.2分成一组，该怎么编程！再者，如果2.1序号下面有3个空格，没填序号，但也能把它分成一组，相当于2.1.1、2.1.2、2.1.3！
excel有创建组，但一个一个点真的太麻烦了……求学！VBA怎么编程呢！
非感谢 yjh-27、liulang0808,两位大侠，谢谢你们！

liulang0808

len看看字符串多长
看看有几个"."之类的组合

feng1989

liulang0808 发表于 2014-2-25 14:28
len看看字符串多长
看看有几个"."之类的组合

能不能写个样本出来参考下！

liulang0808

feng1989 发表于 2014-2-25 17:19
能不能写个样本出来参考下！

Private Sub CommandButton1_Click()
    arr = WorksheetFunction.Transpose(Range("a1:a8"))
    For j = 1 To UBound(arr)
       Select Case Len(arr(j))
       Case 1
            Cells(Rows.Count, 2).End(3).Offset(1, 0) = arr(j)
       Case 3
          Cells(Rows.Count, 3).End(3).Offset(1, 0) = arr(j)
       Case 5
          Cells(Rows.Count, 4).End(3).Offset(1, 0) = arr(j)
       Case 7
           Cells(Rows.Count, 5).End(3).Offset(1, 0) = arr(j)
        End Select
    Next j
End Sub


这里有个bug，就是小数点两边的值不能大有9
如果出现10.1就要有问题的

如果确实有超过9的情况需要重新考虑处理办法

feng1989

liulang0808 发表于 2014-2-25 19:33
Private Sub CommandButton1_Click()
    arr = WorksheetFunction.Transpose(Range("a1:a8"))
    For ...

超过了10一般都有好几十个主序号。

liulang0808

feng1989 发表于 2014-2-26 14:11
超过了10一般都有好几十个主序号。

你的分组是不是根据"."的多少个啊？
比如没有就是
1组
有一个就是
2组
依此类推，，，，，，

liulang0808

你最好是上传一个附件，把你的需求在附件里进行说明，，，比如最长要出现多少个分组等等

feng1989

liulang0808 发表于 2014-2-26 14:15
你最好是上传一个附件，把你的需求在附件里进行说明，，，比如最长要出现多少个分组等等

公司有组策略，限制上传附件、图片，下班后再传，非常谢谢！

liulang0808

feng1989 发表于 2014-2-26 15:00
公司有组策略，限制上传附件、图片，下班后再传，非常谢谢！

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    arr = WorksheetFunction.Transpose(Range("a1:a25"))
    For j = 1 To 25
        Cells(Rows.Count, UBound(Split(arr(j), ".")) + 2).End(3).Offset(1, 0) = arr(j)
    Next j
    Application.ScreenUpdating = True
End Sub

liulang0808

你在看看这个附件，根据“.”进行拆分的