使用VBA遍历Excel所有列并按从大到小排序的实现咨询

你原有代码的问题是硬编码固定了I列的排序范围，只要增加列循环逻辑，动态生成每列的排序区域即可实现需求，以下是可用的VBA代码：

Sub SortAllColumnsDescending()
    Dim ws As Worksheet
    Dim lastCol As Long
    Dim currentCol As Long
    Dim sortRange As Range
    ' 设定目标工作表
    Set ws = ActiveWorkbook.Worksheets("Sheet3")
    ' 获取工作表最后一列的列号
    lastCol = ws.Cells(5, ws.Columns.Count).End(xlToLeft).Column
    ' 关闭屏幕更新提升运行速度
    Application.ScreenUpdating = False
    ' 循环遍历每一列，从I列开始就把起始值1改成9
    For currentCol = 1 To lastCol
        ' 清空之前的排序条件
        ws.Sort.SortFields.Clear
        ' 设定当前列的排序范围：第5行到第304行共300行，行范围不符可自行调整304参数
        Set sortRange = ws.Range(ws.Cells(5, currentCol), ws.Cells(304, currentCol))
        ' 添加降序排序规则
        ws.Sort.SortFields.Add2 Key:=sortRange, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        ' 执行排序
        With ws.Sort
            .SetRange sortRange
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    Next currentCol
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

• 如果你的数据起始列不是A列，比如是从I列开始，把循环语句For currentCol = 1 To lastCol里的起始值1改成9即可
• 代码里排序范围默认是第5行到第304行共300行，如果你的实际数据行范围不同，修改ws.Cells(304, currentCol)里的行号即可
• 关闭屏幕更新的逻辑针对2000多列的大数据量做了优化，可避免排序过程中Excel卡顿

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