如何将列按从新到旧排序？及VBA排序代码故障修复咨询

嘿，我来帮你搞定这两个问题！

一、如何将表格某一列按「最新到最旧」顺序排序 #

不管是手动操作还是用VBA，核心都是按降序排序（因为Excel里最新的日期对应的数值更大，降序排列就会把最新的放在最前面）：

• 手动操作步骤：
  • 选中要排序的列（如果有表头，记得连表头一起选）
  • 切换到Excel顶部的「数据」选项卡，点击「排序」按钮
  • 在弹出的对话框中，设置「列」为你要排序的目标列，「次序」选择「降序」，如果有表头请勾选「数据包含标题」，最后点击确定即可。
• VBA实现：可以参考下面修复后的代码，直接运行就能完成排序。

二、修复你的VBA代码 #

你的代码有几个小问题，我给你拆解并修复：

1. 无效的范围引用：Range("M2:M")这种写法Excel无法识别有效范围，应该动态获取M列最后一行有数据的单元格，避免包含大量空行。
2. 排序方向错误：你要的是「最新到最旧」，对应VBA里的xlDescending（降序），而你写的xlAscending是升序（最旧到最新）。
3. 可选优化：指定工作表：最好明确指定要操作的工作表，防止当前活动工作表不是目标表而出错；另外如果你的M列有表头，记得加上Header:=xlYes参数。

修复后的代码（仅排序M列） #

Sub SortByNewestToOldest()
    ' 替换成你实际要操作的工作表名称，比如"销售数据"
    With ThisWorkbook.Worksheets("Sheet1")
        ' 动态获取M列从M2到最后一行有数据的范围
        Dim sortRange As Range
        Set sortRange = .Range("M2:M" & .Cells(.Rows.Count, "M").End(xlUp).Row)
        
        ' 执行降序排序，有表头用xlYes，无表头用xlNo
        sortRange.Sort _
            Key1:=.Range("M2"), _
            Order1:=xlDescending, _
            Header:=xlYes
    End With
End Sub

进阶：让整行跟着M列排序 #

如果你希望排序时整行数据都跟着M列的顺序调整（而不是只动M列），可以用下面的代码：

Sub SortRowsByNewestToOldest()
    With ThisWorkbook.Worksheets("Sheet1")
        Dim lastRow As Long
        lastRow = .Cells(.Rows.Count, "M").End(xlUp).Row
        ' 范围改成从A2到M列最后一行，确保整行数据联动排序
        .Range("A2:M" & lastRow).Sort _
            Key1:=.Range("M2"), _
            Order1:=xlDescending, _
            Header:=xlYes
    End With
End Sub

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