嘿，这个场景我太熟悉了！导入的数据乱序，还带着父项关联，要整理成父项在上、子项紧跟且层级分明的结构对吧？下面给你几个从简单到高效的解决方案，按需选就行：

方法1：用Excel内置功能快速整理（适合小数据量） #

如果数据不多，用辅助列+排序就能搞定：

• 第一步：新增辅助列（比如放在最后一列），用来生成排序用的层级路径。假设你的父项列是列F，主键列是列A，在辅助列第一行输入公式：

  =IF(F2="", A2, F2&"-"&A2)
  

  下拉填充到所有行。这个公式会给父项直接用主键，子项则生成「父项主键-子项主键」的格式，排序时就能自动把同属一个父项的子项归到一起。
• 第二步：选中整个数据区域（包括辅助列），点击「数据」选项卡→「排序」，按辅助列升序排序，记得勾选「数据包含标题」。
• 第三步：给子项设置缩进（可选）。选中所有子项行（可以用筛选，筛选父项列不为空的行），右键→「设置单元格格式」→「对齐」，调整「缩进」值，或者直接用工具栏的缩进按钮，让层级更直观。

方法2：用Power Query批量处理（适合大数据量/重复操作） #

如果经常要处理这类数据，Power Query是效率神器：

• 第一步：选中数据区域，点击「数据」选项卡→「从表格/区域」，把数据导入Power Query编辑器。
• 第二步：添加自定义列：点击「添加列」→「自定义列」，输入公式（替换父项列和主键列为你的实际列名）：

  if [父项列] = null then [主键列] else [父项列] & "|" & [主键列]
  

  这个列会生成层级路径，方便后续排序。
• 第三步：按自定义列排序：点击自定义列的表头，选择「升序排序」。
• 第四步：关闭并上载：点击「关闭并上载」，整理好的数据就会出现在新工作表里。如果要加缩进，可以回到Excel用条件格式，或者在Power Query里先标记层级再设置格式。

方法3：VBA脚本自动化（适合高频需求） #

要是需要一键整理，写个简单的VBA脚本就行，示例代码如下：

Sub SortParentChildStructure()
    Dim targetSheet As Worksheet
    Set targetSheet = ActiveSheet ' 可以改成具体工作表名，比如Sheets("数据")
    
    Dim lastRow As Long
    lastRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 假设父项列是列F，主键列是列A，按父项+主键排序
    targetSheet.Range("A1:F" & lastRow).Sort _
        Key1:=targetSheet.Range("F1"), Order1:=xlAscending, _
        Key2:=targetSheet.Range("A1"), Order2:=xlAscending, _
        Header:=xlYes
    
    ' 给子项添加缩进
    Dim rowNum As Long
    For rowNum = 2 To lastRow
        If targetSheet.Cells(rowNum, "F").Value <> "" Then
            targetSheet.Cells(rowNum, "A").IndentLevel = 1
            ' 如果有多层嵌套，可以递归判断父项的缩进，这里简化为一级缩进
        End If
    Next rowNum
End Sub

使用方法：按Alt+F11打开VBA编辑器，插入模块，粘贴代码，调整列号后运行即可。

注意事项 #

• 确保父项的关联值没有拼写错误，否则排序时子项会找不到对应的父项。
• 如果是多层嵌套（父→子→孙），只要辅助列/自定义列的路径能体现完整层级，排序后就会自动形成嵌套结构，缩进也可以对应调整层级数。

内容的提问来源于stack exchange，提问作者O. Oliver