如何基于另一列依赖值对Excel数据实现自定义排序

你需要实现的是基于依赖关系的拓扑排序，Excel没有原生支持该场景的一键排序功能，可通过以下两种方法实现自动化：

方法1：Excel 365/2021 函数实现 #

假设你的Dependent列是A列、Next列是B列，表头在第1行，数据范围为A2:Bn：

1. 新增「层级」辅助列，在C2单元格输入以下公式，下拉填充到所有数据行：
   =LET(node,A2,IF(COUNTIF(B:B,node)=0,1,XLOOKUP(node,A:A,C:C,0)+1))
   公式逻辑：没有前置依赖的节点（即不在Next列出现的节点）层级为1，其余节点层级等于其依赖节点的层级+1
2. 全选所有数据区域，按C列做升序排序即可得到预期效果，同层级节点可按需再按Dependent列排序调整顺序

方法2：全Excel版本通用VBA方案 #

适合没有动态数组函数的旧版Excel：

1. 按Alt+F11打开VBA编辑器，右键点击当前工作簿名称，选择「插入」-「模块」
2. 粘贴以下代码：

Sub 依赖关系拓扑排序()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim levelDict As Object
    Dim curNode As String, preNode As String
    Dim i As Long
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set levelDict = CreateObject("Scripting.Dictionary")
    
    ' 标记无前置依赖的节点层级为1
    For i = 2 To lastRow
        curNode = ws.Cells(i, "A").Value
        If Application.CountIf(ws.Range("B:B"), curNode) = 0 Then
            levelDict(curNode) = 1
        End If
    Next i
    
    ' 迭代计算所有节点层级
    Do While levelDict.Count < lastRow - 1
        For i = 2 To lastRow
            curNode = ws.Cells(i, "A").Value
            preNode = ws.Cells(i, "B").Value
            If Not levelDict.exists(curNode) And levelDict.exists(preNode) Then
                levelDict(curNode) = levelDict(preNode) + 1
            End If
        Next i
    Loop
    
    ' 写入层级并排序
    For i = 2 To lastRow
        ws.Cells(i, "C").Value = levelDict(ws.Cells(i, "A").Value)
    Next i
    ws.Range("A1:C" & lastRow).Sort Key1:=ws.Range("C1"), Order1:=xlAscending, Header:=xlYes
End Sub

3. 按F5运行宏即可自动完成计算和排序，后续新增数据后重新运行宏即可更新排序结果

注意：需确保你的依赖关系不存在循环（比如A依赖B、B又依赖A），否则会出现计算错误；如果你的数据列不是A、B列，修改代码中对应的列号即可。

内容的提问来源于stack exchange，提问作者Naveen Kumar H S