如何用活动工作表引用替代指定工作表名称（VBA宏修改）

要让宏在当前活动工作表运行，不受固定工作表名称限制，只需做几个关键修改，同时优化原录制宏里的冗余操作：

• 把所有ActiveWorkbook.Worksheets("Sheet1")替换为ActiveSheet，ActiveSheet会自动指向当前选中的工作表，完全不受名称影响。
• 删掉录制宏生成的Range.Select和Selection.操作，直接对Range对象调用方法，让代码更高效、更不容易出错。
• 移除重复的SortFields.Clear语句，原代码里重复执行了两次，保留一次就足够。

修改后的完整代码：

With ActiveSheet
    ' 开启自动筛选
    .Range("A1:Q1").AutoFilter
    
    ' 清除原有排序规则并添加新排序字段
    .AutoFilter.Sort.SortFields.Clear
    .AutoFilter.Sort.SortFields.Add Key:=.Range("O1"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    
    ' 应用排序设置
    With .AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With

关键修改说明 #

1. ActiveSheet的作用：替代固定工作表名称引用，确保宏始终在用户当前选中的工作表上执行，不管工作表叫什么名字。
2. 嵌套With语句：减少重复的对象引用，让代码更简洁易读，同时提升运行效率。
3. 移除Select操作：录制宏会自动生成Select和Selection，但直接操作对象是VBA的最佳实践，能避免因选中区域意外变化导致的错误。

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