Excel多级排序忽略空单元格的特殊排序需求技术咨询

适用版本：Excel 365/2021及以上 #

1. 选中包含表头的全部数据区域。
2. 点击「数据」选项卡 → 「排序」，打开排序对话框。
3. 配置排序规则：
   • 点击「添加条件」，设置：
     • 主要关键字：任选一列（选A列即可，后续会被公式覆盖）
     • 排序依据：选择「自定义公式」
     • 输入公式：=IF(ISBLANK(A2), C2, A2)（注意：公式中的A2、C2要对应你数据区域的第一行数据行，若数据从第3行开始则改为A3、C3）
     • 次序：根据需求选「升序」或「降序」
   • （可选）若需进一步排序（如A列相同值的行按其他列排序），继续添加条件即可。
4. 点击「确定」完成排序。

原理 #

公式会自动替换空值的排序依据：A列非空时用A列值排序，A列空值时用C列值排序。Excel会基于这个合成的排序键统一排列所有行，直接实现空值行按C列字母顺序插入对应位置，无需将空值移至末尾。

旧版Excel兼容方案（无自定义公式功能） #

如果你的Excel版本不支持自定义公式排序，可通过VBA实现（无需辅助列）：

Sub SpecialCustomSort()
    Dim ws As Worksheet
    Dim sortRange As Range
    Dim lastRow As Long
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set sortRange = ws.Range("A1:C" & lastRow) ' 调整为你的实际数据列范围
    
    ' 自定义排序，通过数组实现逻辑
    Dim arr As Variant, temp As Variant
    Dim i As Long, j As Long
    arr = sortRange.Value
    
    ' 冒泡排序（数据量大时可替换为更高效的排序算法）
    For i = LBound(arr, 1) + 1 To UBound(arr, 1)
        For j = i To LBound(arr, 1) + 1 Step -1
            ' 比较排序键：非空用A列，空用C列
            Dim key1 As String, key2 As String
            key1 = IIf(arr(j, 1) = "", arr(j, 3), arr(j, 1))
            key2 = IIf(arr(j - 1, 1) = "", arr(j - 1, 3), arr(j - 1, 1))
            
            If StrComp(key1, key2, vbTextCompare) < 0 Then
                temp = arr(j - 1, :)
                arr(j - 1, :) = arr(j, :)
                arr(j, :) = temp
            End If
        Next j
    Next i
    
    ' 将排序后的数组写回工作表
    sortRange.Value = arr
End Sub

使用方法：按Alt+F11打开VBA编辑器，插入模块，粘贴代码，调整数据列范围（A1:C部分），运行宏即可。

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