按照行号进行组合

andywuqd007

请教各位达人，我想通过VBA来实现表格中的行按照第一列的Level值进行分组
因为每组的数据不相等，不知道如何通过VBA来实现。

魂断蓝桥

level	Activity ID	Activity Name
1	Total
2	Unit 11 Methane fraction Booster compressor station
3	Site Preparation & Early Works
4	CN231100C.020	11.300 Site Preparation
4	CN231100C.025	11.300 Site Survey & Grid mark
3	Civils
4	CN231100C.030	11.300 Excavation 1st Part for piling
4	CN231100C.260	11.320 Excavation for Underground Piping
4	CN231100C.250	11.325 Roads & Paving
3	Piling
4	CN231105C.010	11.301 Piling Compressor foundations

返回什么样的结果呢？

andywuqd007

魂断蓝桥 发表于 2018-8-6 14:45
返回什么样的结果呢？

老师，您好！我想实现和下面图片的样式
我写了一段程序，但是运行起来特别的慢。
Sub level_group()

Dim i, x, j, a, grouptop, groupbottom As Integer
a = 4
Do While x < 16
    For i = a + 1 To 322
      If Cells(i, 1) = 4 Then
        j = j + 1
        ElseIf Cells(i, 1) < 4 Then
        grouptop = i - j
        groupbottom = i - 1
        a = i
        j = 0
        Rows(grouptop & ":" & groupbottom).Select
        Selection.Group
        x = x + 1
        Exit For
      End If
    Next i
Loop

End Sub

魂断蓝桥

andywuqd007 发表于 2018-8-6 15:36
老师，您好！我想实现和下面图片的样式
我写了一段程序，但是运行起来特别的慢。
Sub level_group()

还是没看懂，如果哦按照你的要求拆分

andywuqd007

魂断蓝桥 发表于 2018-8-6 15:38
还是没看懂，如果哦按照你的要求拆分

把每个level 为4 的行 折叠到 level 3 的行下面