Excel VBA如何批量对O至CJ列按实际行数独立排序

你原有的单列排序逻辑是正确的，批量处理只需要通过循环遍历指定列范围即可，不需要逐列重复写排序代码，以下是可直接复用的实现：

完整可运行代码 #

Sub SortOToCJColumns()
    Dim ws As Worksheet
    Dim colStart As Long, colEnd As Long, colIdx As Long
    Dim lastDataRow As Long

    ' 绑定目标工作表
    Set ws = ActiveWorkbook.Worksheets("data")
    ' 定义排序范围：O列到CJ列，直接通过列名转列号，不需要手动数列序号
    colStart = ws.Columns("O").Column
    colEnd = ws.Columns("CJ").Column

    ' 关闭屏幕刷新，大幅提升多列排序的运行速度，避免屏幕闪跳
    Application.ScreenUpdating = False

    ' 逐列遍历执行排序
    For colIdx = colStart To colEnd
        ' 单独计算当前列的最后一行有效数据，适配不同列数据行数不一致的场景
        lastDataRow = ws.Cells(ws.Rows.Count, colIdx).End(xlUp).Row

        ' 跳过只有表头、无有效数据的空列，避免报错
        If lastDataRow >= 2 Then
            With ws.Sort
                .SortFields.Clear
                .SortFields.Add2 _
                    Key:=ws.Range(ws.Cells(2, colIdx), ws.Cells(lastDataRow, colIdx)), _
                    SortOn:=xlSortOnValues, _
                    Order:=xlAscending, _
                    DataOption:=xlSortNormal
                .SetRange ws.Range(ws.Cells(1, colIdx), ws.Cells(lastDataRow, colIdx))
                .Header = xlYes
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
        End If
    Next colIdx

    ' 恢复默认屏幕刷新设置
    Application.ScreenUpdating = True
End Sub

说明 #

• 代码完全保留了你原有的排序规则：按值升序、识别第一行为表头、不区分大小写、按拼音排序、从上到下排序
• 去掉了宏录制生成的Select选中列的冗余操作，直接操作单元格对象，运行效率更高
• 如果后续需要调整排序的列范围，只需要修改Columns("O")和Columns("CJ")里的列名即可，不需要改动其他逻辑
• 空列自动跳过，不会触发运行错误

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