如何在Excel中根据列内层级值自动实现行嵌套分组（分级显示）

适用场景 #

匹配你的需求：A列预填1-5级层级数值、无需分类汇总功能、支持800行批量处理、方案可复用。

实现方法：VBA宏（一次编写可反复调用） #

操作步骤如下：

• 打开目标Excel表格，按Alt+F11唤起VBA编辑器
• 在左侧项目资源管理器右键点击当前工作簿名称，选择「插入」-「模块」
• 将下方代码粘贴到弹出的空白模块编辑区：

Sub AutoGroupByLevel()
    Dim startRow As Long, endRow As Long, i As Long
    Dim level As Integer
    ' 配置参数：可修改为你实际的数据起始行
    startRow = 1 ' 如果有表头，改为数据实际开始的行号即可
    endRow = Cells(Rows.Count, "A").End(xlUp).Row ' 自动识别A列最后一行有数据的行
    
    ' 先清除现有分组，避免冲突
    On Error Resume Next
    Rows(startRow & ":" & endRow).Ungroup
    On Error GoTo 0
    
    ' 从下往上遍历行，避免分组时行号偏移出错
    For i = endRow To startRow Step -1
        level = Cells(i, "A").Value
        ' 仅处理1-5级的有效层级
        If level >= 2 And level <= 5 Then
            Rows(i).Group
        End If
    Next i
    
    ' 可选：默认折叠到1级视图，需要调整默认显示层级修改后面的数字即可
    ActiveSheet.Outline.ShowLevels RowLevels:=1
End Sub

• 按F5直接运行当前宏，即可自动完成所有行的层级分组
• 后续需要复用的话，把表格保存为*.xlsm启用宏的工作簿格式，下次打开直接运行宏即可

注意事项 #

• A列的层级数值规则需统一：1为最高层级，数值越大层级越低，和你给出的示例规则保持一致即可
• 不需要额外修改表格结构，原有数据内容不会被宏修改

内容的提问来源于stack exchange，提问作者Hurarcane