如何通过VBA撤销Excel中M列的排序操作，恢复数据原始位置？

嘿，这个问题我太熟了——VBA执行的排序操作确实没法用Excel自带的撤销功能恢复，因为VBA运行后会直接清空Excel的撤销栈，Ctrl+Z根本不管用。不过别慌，我给你分两种情况提供靠谱的解决方案：

情况1：还没执行排序，提前做好恢复准备（强烈推荐！） #

如果还没运行你的Sor_t宏，或者之后还要频繁做这类排序操作，最好在排序前添加一个辅助列记录原始行号，这样想恢复的时候直接按这个列排序就能回到原位。

我帮你修改了排序宏，加上了辅助列的逻辑：

Sub SortWithRecovery()
    Dim ws As Worksheet
    Dim usedRange As range
    Dim sortKey As range
    
    Set ws = ThisWorkbook.Sheets("RMData")
    Set usedRange = ws.UsedRange
    
    ' 插入辅助列到最左侧（列A），记录原始行号
    ws.Columns(1).Insert
    ws.Range("A1").Value = "OriginalRow" ' 设置表头
    ' 从第二行开始填充原始行号（减去1是因为表头占了一行）
    ws.Range("A2:A" & usedRange.Rows.Count + 1).Formula = "=ROW()-1"
    ' 把公式转成固定值，避免后续操作影响
    ws.Range("A2:A" & usedRange.Rows.Count + 1).Value = ws.Range("A2:A" & usedRange.Rows.Count + 1).Value
    
    ' 按M列（现在因为插入了列A，变成N列了）升序排序
    Set sortKey = ws.Range("N1")
    usedRange.Offset(0, 1).Sort Key1:=sortKey, Order1:=xlAscending, Header:=xlYes
    
    MsgBox "排序完成！已记录原始行号，随时可以恢复~"
End Sub

然后写一个专门的恢复宏，一键回到原始顺序：

Sub RestoreOriginalOrder()
    Dim ws As Worksheet
    Dim usedRange As range
    Dim restoreKey As range
    
    Set ws = ThisWorkbook.Sheets("RMData")
    Set usedRange = ws.UsedRange
    Set restoreKey = ws.Range("A1") ' 辅助列的表头
    
    ' 按辅助列升序排序，恢复原始位置
    usedRange.Sort Key1:=restoreKey, Order1:=xlAscending, Header:=xlYes
    
    ' 可选：删除辅助列，恢复原来的列结构
    ws.Columns(1).Delete
    
    MsgBox "搞定！已经回到排序前的原始顺序啦"
End Sub

情况2：已经执行了排序，没提前加辅助列 #

这时候就有点被动了，得看你的数据情况：

• 如果数据里有唯一标识列（比如ID、编号这类每行都不一样的列），而且你记得原始的排序规则（比如原来按ID升序），那直接写个宏按这个列排序回去就行。比如原来按B列升序，就把排序的Key1改成ws.Range("B1")。
• 如果没有唯一标识列，那只能找备份了：看看Excel的自动备份（如果开启了的话，路径一般是文件>选项>保存里的自动备份位置），或者你手动保存的旧版本文件，这是最稳妥的办法。

额外小建议 #

以后做这类VBA操作前，最好先手动保存文件，或者在代码里自动备份工作表，比如在排序前加这么一段：

' 排序前自动备份工作表，存到当前工作簿最后
ws.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = "RMData_Backup_" & Format(Now(), "YYYYMMDD_HHMMSS")

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