如何基于Level值创建Excel可展开层级结构

以下优先提供实现难度最低的无代码方案，VBA作为备选供你按需选择。

方案一：数据透视表实现（零代码，操作最简单） #

前置预处理 #

• 确认源数据中Level字段取值为连续正整数，层级从高到低对应Level值从1到N（比如一级分类对应Level=1，二级对应Level=2，以此类推）
• 新增父节点匹配列：在源数据空白列新增列名父级节点，填入公式匹配当前行对应上一级的节点内容，公式参考：=IFERROR(LOOKUP(2,1/($A$2:A2=B2-1),$C$2:C2),"")，公式中A列为Level值所在列，C列为节点名称所在列，可根据你实际的列位置调整参数

数据透视表配置 #

• 选中全量源数据，点击「插入」选项卡→选择「数据透视表」，选择透视表存放位置
• 在右侧字段面板中，按Level值从低到高（1→2→3…）的顺序，把各级节点字段依次拖入「行」区域
• 右键点击透视表任意行标签，选择「展开/折叠」，可设置默认的展开层级，也可点击行标签前的加减号手动控制展开状态

格式优化 #

• 选中透视表后点击「设计」选项卡，选择「以大纲形式显示」/「以表格形式显示」，关闭分类汇总、总计项，让结构更贴合层级展示需求
• 如需按层级自动缩进：右键任意行标签→「字段设置」→「布局和打印」→勾选「缩进标签」，设置合适的缩进数值即可

方案二：VBA实现（适合批量生成原生行分组层级） #

如果需要生成Excel原生的行分组可展开结构，可使用以下代码：

Sub 按Level值生成可折叠层级()
    Dim dataWs As Worksheet
    Dim levelCol As Long, startRow As Long, lastRow As Long, i As Long
    
    ' 以下参数可根据你的实际情况修改
    Set dataWs = ActiveSheet ' 替换为你的源数据工作表名称，比如Set dataWs = Sheets("数据源")
    levelCol = 1 ' Level值所在的列号，A列为1，B列为2，以此类推
    startRow = 2 ' 数据起始行，默认第1行为表头，从第2行开始
    
    lastRow = dataWs.Cells(dataWs.Rows.Count, levelCol).End(xlUp).Row
    ' 清除原有分组
    On Error Resume Next
    dataWs.Rows.Ungroup
    On Error GoTo 0
    ' 按Level值设置分组层级
    For i = startRow To lastRow
        dataWs.Rows(i).OutlineLevel = dataWs.Cells(i, levelCol).Value
    Next i
    ' 设置汇总行位置在层级上方
    dataWs.Outline.SummaryRow = xlAbove
End Sub

• 操作方法：按Alt+F11打开VBA编辑器，右键点击左侧工作表名称→「插入」→「模块」，粘贴上述代码修改参数后按F5运行即可。

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