如何让录制的Excel宏在任意同结构工作表中生效？

嘿，这个问题我太熟了——你踩了VBA宏里最常见的坑之一：硬编码工作表名称！你现在的宏死死绑定了"owssvr (1)"这个表名，换其他工作表运行时，Excel找不到对应名称的表，自然就抛出“下标越界”的错误了。下面给你几个通用化的解决方案，适配不同的使用场景：

方案1：针对当前激活的工作表（最常用） #

如果你习惯在要排序的工作表上直接运行宏，把代码里固定的工作表引用换成ActiveSheet即可，它会自动指向你当前选中的工作表。而且我建议你改用列名而非列号来引用排序字段，这样就算列的位置变动了，宏依然能正常工作：

Sub SortAnySheet()
    ' 声明变量，避免使用全局对象（更稳定）
    Dim targetWs As Worksheet
    Dim targetListObj As ListObject
    
    ' 获取当前激活的工作表
    Set targetWs = ActiveSheet
    
    ' 获取工作表中的第一个表格（假设每个目标表只有一个表格）
    Set targetListObj = targetWs.ListObjects(1)
    
    ' 清空原有排序规则，避免叠加旧规则
    targetListObj.Sort.SortFields.Clear
    
    ' 添加排序规则：A列（Number）升序，D列（ID）升序，M列（日期）降序
    With targetListObj.Sort.SortFields
        .Add Key:=targetListObj.ListColumns("Number").Range, _
             SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Add Key:=targetListObj.ListColumns("ID").Range, _
             SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Add Key:=targetListObj.ListColumns("日期").Range, _
             SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    End With
    
    ' 应用排序设置
    With targetListObj.Sort
        .Header = xlYes ' 你的数据有表头，所以选xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

方案2：让用户选择目标工作表（更灵活） #

如果你需要批量处理多个工作表，或者不确定当前激活的是不是目标表，可以加一个选择对话框，让用户手动指定要排序的表：

Sub SortSelectedSheet()
    Dim targetWs As Worksheet
    Dim targetListObj As ListObject
    
    ' 弹出对话框，让用户点击目标工作表的任意单元格来选择
    On Error Resume Next ' 处理用户取消选择的情况
    Set targetWs = Application.InputBox("请点击要排序的工作表中的任意单元格", "选择工作表", Type:=8).Parent
    On Error GoTo 0
    
    ' 如果用户取消选择，直接退出
    If targetWs Is Nothing Then Exit Sub
    
    ' 后续排序逻辑和方案1一致
    Set targetListObj = targetWs.ListObjects(1)
    targetListObj.Sort.SortFields.Clear
    
    With targetListObj.Sort.SortFields
        .Add Key:=targetListObj.ListColumns("Number").Range, Order:=xlAscending
        .Add Key:=targetListObj.ListColumns("ID").Range, Order:=xlAscending
        .Add Key:=targetListObj.ListColumns("日期").Range, Order:=xlDescending
    End With
    
    With targetListObj.Sort
        .Header = xlYes
        .Apply
    End With
End Sub

方案3：绑定工作表按钮的场景 #

如果你的宏是通过工作表上的按钮触发的，直接用Me指代按钮所在的工作表即可，这样按钮在哪张表上，宏就操作哪张表：

' 注意：这段代码要写在按钮所在工作表的模块里（不是标准模块）
Sub SortThisSheet()
    Dim targetListObj As ListObject
    Set targetListObj = Me.ListObjects(1)
    
    ' 排序逻辑和方案1一致
    targetListObj.Sort.SortFields.Clear
    ' ... 省略排序字段添加和应用代码
End Sub

额外提示：如果数据不是表格（ListObject） #

如果你的数据是普通单元格区域而非Excel表格，把代码改成针对UsedRange的排序即可：

Sub SortRangeAnySheet()
    With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=ActiveSheet.Range("A:A"), Order:=xlAscending
        .SortFields.Add Key:=ActiveSheet.Range("D:D"), Order:=xlAscending
        .SortFields.Add Key:=ActiveSheet.Range("M:M"), Order:=xlDescending
        .SetRange ActiveSheet.UsedRange
        .Header = xlYes
        .Apply
    End With
End Sub

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