Excel宏开发：如何仅当K列存在‘rejected’状态时触发筛选？

我来帮你搞定这个宏中断的麻烦！问题的核心是当K列没有Rejected状态时，直接执行筛选会因为找不到匹配项报错，导致后续代码无法运行。下面是完整的解决方案，还帮你修正了一个容易踩的小坑：

关键思路 #

先检查K列中是否存在目标状态值，只有确认存在后再执行筛选和后续的着色操作，同时优化代码避免使用Select（这是VBA宏不稳定的常见原因）。

修正后的完整代码 #

Sub ProcessRejectedEntries()
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim hasRejectedStatus As Boolean
    
    ' 指定操作的工作表（建议替换成实际表名，比如Sheets("财务数据")，比ActiveSheet更可靠）
    Set targetSheet = ActiveSheet
    
    ' 获取K列的最后一行行号，避免硬写128这种固定值
    lastRow = targetSheet.Cells(targetSheet.Rows.Count, "K").End(xlUp).Row
    
    ' 检查K列是否存在"Rejected"状态（注意大小写要和你ERP导出的数据完全一致！）
    On Error Resume Next ' 防止CountIf找不到匹配项时抛出错误
    hasRejectedStatus = (WorksheetFunction.CountIf(targetSheet.Range("K1:K" & lastRow), "Rejected") > 0)
    On Error GoTo 0 ' 恢复默认错误处理
    
    ' 只有存在Rejected状态时才执行后续操作
    If hasRejectedStatus Then
        ' 注意：K列是第11列（A=1，B=2...K=11），你之前的Field:=10是筛选J列，这里修正了！
        targetSheet.Range("$A$1:$K$" & lastRow).AutoFilter Field:=11, Criteria1:="Rejected"
        
        ' 替换你原来的选择代码，直接操作目标区域（这里以筛选后H列的可见单元格为例）
        Dim coloredRange As Range
        Set coloredRange = targetSheet.Range("H2:H" & lastRow).SpecialCells(xlCellTypeVisible)
        
        ' 执行着色操作（这里用红色示例，你可以换成需要的颜色）
        coloredRange.Interior.Color = RGB(255, 0, 0)
        
        ' 可选：如果操作完成后需要取消筛选，解开下面的注释
        ' targetSheet.AutoFilterMode = False
    Else
        ' 可选：当没有Rejected状态时的提示，不需要可以删掉
        MsgBox "当前数据中未找到'Rejected'状态，已跳过筛选及着色操作。"
    End If
End Sub

几个重要的细节说明 #

• 列号修正：你原来的代码里Field:=10对应的是J列，而你说的是K列，所以改成Field:=11，这是很容易犯的错误，一定要注意！
• 大小写匹配：ERP导出的状态如果是小写rejected，记得把代码里的"Rejected"改成"rejected"，否则CountIf会找不到匹配项。
• 避免使用Select：直接操作Range对象比用Select+Selection稳定得多，也更高效，尤其是处理大量数据时。
• 动态行号：用lastRow获取K列最后一行，代替硬写的128，这样不管导出多少行数据都能适配。

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