基于表头排序列顺序的优化Macro 大体积多列数据宏排序方案问询

前置说明 #

• 适配10万行以上级别的超大体积数据，运行时自动关闭屏幕更新、事件触发，性能远优于手动操作
• 完全匹配Excel原生排序逻辑，支持文本、数值、日期等多种数据类型的升/降序排序
• 支持两种使用模式：未选中区域时自动识别当前连续数据区域全量排序，选中相邻多列时仅对选中列关联排序

操作步骤 #

• 打开目标Excel文件，按Alt + F11唤起VBA编辑器
• 在左侧「项目-VBAProject」面板右键点击当前工作簿名称，依次选择「插入」-「模块」
• 将下方代码复制粘贴到右侧的模块编辑窗口
• 按F5直接运行，也可将宏绑定到自定义功能区按钮/快捷键实现快速调用

完整VBA代码 #

Sub 多列批量排序()
    Dim sortRng As Range
    Dim keyCol As Range
    
    ' 关闭无关功能提升运行速度
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' 判断是否选中有效区域
    If TypeName(Selection) = "Range" Then
        If Selection.Count > 1 Then
            Set sortRng = Selection
        Else
            ' 未选中区域时自动识别当前单元格所在的连续数据区域
            Set sortRng = ActiveCell.CurrentRegion
        End If
    Else
        MsgBox "请先选中需要排序的数据区域或定位到数据区域内任意单元格"
        GoTo 恢复设置
    End If
    
    ' 执行排序
    With sortRng.Sort
        .SortFields.Clear
        ' 排序主键为区域第一列，xlAscending为升序，如需降序改为xlDescending
        .SortFields.Add Key:=sortRng.Columns(1), Order:=xlAscending
        ' 如需增加多优先级排序，可参照上方代码继续添加次键，例如：
        ' .SortFields.Add Key:=sortRng.Columns(2), Order:=xlAscending
        .Header = xlYes ' 首行为表头不参与排序，无表头改为xlNo
        .MatchCase = False ' 不区分大小写
        .Orientation = xlTopToBottom ' 按行排序
        .Apply
    End With
    
恢复设置:
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

自定义调整说明 #

• 排序规则：将Order:=xlAscending修改为Order:=xlDescending即可实现降序（Z-A/9-0/日期从晚到早）
• 多优先级排序：取消代码中次键排序的注释，可设置多列依次排序，比如先按第一列升序、再按第二列降序
• 无表头适配：如果数据没有首行表头，将Header = xlYes修改为Header = xlNo即可

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