Excel VBA排序宏仅在首个工作表生效，其余表报错求助

• 未限定工作表对象：Target和Range在模块中默认指向活动工作表，只有触发事件的工作表恰好是活动表时才会生效，其他工作表触发事件时，代码仍会操作活动表（通常是第一个工作表）。
• 未传递Target参数：模块中的OrderDates子程序没有接收工作表事件传递的Target对象，导致Target未定义（你之前遇到的编译错误就是因为这个）。
• 排序参数错误：排序的key1应该指定排序区域的关键列，你用Range("N66")是单个单元格，且设置的是升序（xlAscending），不符合降序需求。

1. 模块中的OrderDates子程序 #

修改为接收当前工作表和Target参数，明确限定所有操作的工作表对象：

Sub OrderDates(ByVal ws As Worksheet, ByVal Target As Range)
    ' 限定操作的区域为当前工作表的N14:N66
    Dim sortRange As Range
    Set sortRange = ws.Range("N14:N66")
    
    ' 检查修改的单元格是否在N列且属于排序区域
    If Not Intersect(Target, ws.Range("N:N")) Is Nothing Then
        ' 执行降序排序，关键列为N列，无表头
        sortRange.Sort Key1:=ws.Range("N14"), _
                      Order1:=xlDescending, _
                      Header:=xlNo, _
                      Orientation:=xlTopToBottom
    End If
End Sub

2. 每个工作表的Worksheet_Change事件 #

在每个需要生效的工作表代码窗口中，修改事件过程，传递当前工作表和Target参数：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 传递当前工作表(Me)和Target给OrderDates
    OrderDates Me, Target
End Sub

• 通过ByVal ws As Worksheet参数明确指定操作的工作表，彻底摆脱对活动表的依赖。
• 排序区域限定为N14:N66，确保只排序目标范围，不会影响其他单元格。
• 把Order1改为xlDescending实现降序排序，完全匹配你的需求。
• 移除了On Error Resume Next，避免隐藏潜在错误，方便后续调试。

内容的提问来源于stack exchange，提问作者Ganz Hunslet G2