适配活动工作表的颜色优先+数值排序VBA代码修正需求

看起来你遇到的核心问题是把硬编码指定工作表的排序宏，改成能在当前活动工作表上运行的通用版本对吧？你的思路完全正确——用ActiveSheet来绑定工作表，但代码里有几个语法和对象引用的问题，导致它没法正常工作。我帮你修正了代码，同时优化了一些细节（比如去掉不必要的Select操作，VBA里尽量避免用Select，不仅运行慢还容易出问题）。

修正后的完整代码 #

Sub A_Sort_ActiveSheet()
    ' 针对活动工作表的颜色+数值排序宏
    Dim WS As Worksheet
    Set WS = ActiveSheet
    
    ' --------------------------
    ' 第一步：按B列颜色排序，再按G列数值升序排序
    ' --------------------------
    With WS.Sort
        .SortFields.Clear ' 清空之前的排序规则
        
        ' 添加B列的颜色排序规则（按指定RGB顺序升序）
        .SortFields.Add _
            Key:=WS.Range("B4:B43"), _
            SortOn:=xlSortOnCellColor, _
            Order:=xlAscending, _
            SortOnValue:=RGB(169, 208, 142)
            
        .SortFields.Add _
            Key:=WS.Range("B4:B43"), _
            SortOn:=xlSortOnCellColor, _
            Order:=xlAscending, _
            SortOnValue:=RGB(244, 176, 132)
            
        .SortFields.Add _
            Key:=WS.Range("B4:B43"), _
            SortOn:=xlSortOnCellColor, _
            Order:=xlAscending, _
            SortOnValue:=RGB(184, 137, 219)
            
        .SortFields.Add _
            Key:=WS.Range("B4:B43"), _
            SortOn:=xlSortOnCellColor, _
            Order:=xlAscending, _
            SortOnValue:=RGB(155, 194, 230)
            
        ' 添加G列数值升序规则
        .SortFields.Add2 _
            Key:=WS.Range("G4:G43"), _
            SortOn:=xlSortOnValues, _
            Order:=xlAscending, _
            DataOption:=xlSortNormal
            
        ' 应用排序设置
        .SetRange WS.Range("B3:J43")
        .Header = xlYes ' 因为B3是表头
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    ' --------------------------
    ' 第二步：单独对B列数值升序排序
    ' --------------------------
    With WS.Sort
        .SortFields.Clear
        
        .SortFields.Add2 _
            Key:=WS.Range("B4:B43"), _
            SortOn:=xlSortOnValues, _
            Order:=xlAscending, _
            DataOption:=xlSortNormal
            
        .SetRange WS.Range("B4:B43")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    ' 可选：定位到C4，和原宏行为一致
    WS.Range("C4").Select
End Sub

关键修改说明 #

• 对象绑定修正：所有Range都明确绑定到WS对象（也就是当前活动工作表），避免VBA默认使用选中工作表导致的逻辑错误
• Sort对象调用优化：直接使用WS.Sort操作整个工作表的排序规则，而不是错误地引用某一单元格区域的Sort对象
• 修复语法错误：移除了你代码里多余的括号（WS.Range("G3:G43")).Sort这里多了一个右括号）
• 移除冗余操作：删掉了原宏里不必要的Select语句，直接对指定区域操作更高效可靠
• 代码结构梳理：把两步排序拆分成独立的With块，逻辑更清晰，后续维护也更方便

备注：内容来源于stack exchange，提问作者Saher Naji