如何在Sheet3自动筛选结果旁插入指定提示文本？

需求说明：
在Sheet3执行自动筛选后，当K列（差值）大于$2或小于-$2时，在首个筛选结果行的L列插入以下文本：

Please review 'Differences' & advise of any changes in participant status, contribution amounts, etc.
若无筛选结果，则不显示该文本。其中A列为人员姓名，K列为差值，L列为备注栏。

我的思路：执行自动筛选后，判断A3:A300区域（表头A2下方）是否有可见文本，若有则在L3填入预设备注。当前代码如下：

Worksheets("Sheet3").Select
Range("A2:L300").AutoFilter Field:=12, VisibleDropDown:=False, Criteria1:=">2", Operator:=xlOr, Criteria2:="< -2"
Dim ws As Worksheet
Set ws = Worksheets("Sheet3")
If Application.WorksheetFunction.IsText(ws.Range("A3:A300")) = True Then
    ws.Range("L3") = "Please review 'Differences' & advise of any changes in participant status, contribution amounts, etc."
End If

代码问题分析 #

1. Field参数错误：K列是第11列（A列为第1列），原代码用了12，筛选逻辑完全错误
2. IsText函数误用：IsText仅能判断单个单元格，直接作用于多单元格区域会触发运行时错误
3. 固定写入位置不合理：筛选结果的首个可见行不一定是L3，固定位置会导致备注错位

修正后的代码 #

Sub AddReviewNote()
    Dim ws As Worksheet
    Dim firstVisibleRow As Long
    
    ' 绑定目标工作表，避免Select操作
    Set ws = Worksheets("Sheet3")
    
    ' 清除旧筛选和备注，避免残留数据干扰
    ws.AutoFilterMode = False
    ws.Range("L3:L300").ClearContents
    
    ' 执行筛选：K列（第11列）大于2或小于-2
    ws.Range("A2:L300").AutoFilter Field:=11, _
        Criteria1:=">2", Operator:=xlOr, Criteria2:="< -2", _
        VisibleDropDown:=False
    
    ' 查找表头后第一个可见的数据行
    On Error Resume Next
    firstVisibleRow = ws.Range("A3:A300").SpecialCells(xlCellTypeVisible).Row
    On Error GoTo 0
    
    ' 存在可见结果时，在对应L列写入备注
    If firstVisibleRow > 0 Then
        ws.Cells(firstVisibleRow, "L").Value = "Please review 'Differences' & advise of any changes in participant status, contribution amounts, etc."
    End If
End Sub

修正说明 #

• 修正Field参数为11，匹配K列的位置
• 移除Select操作，直接绑定工作表提升代码稳定性
• 先清除旧筛选和备注，避免历史数据影响结果
• 使用SpecialCells(xlCellTypeVisible)精准定位首个可见数据行
• 加入错误处理，避免无筛选结果时的报错
• 备注写入首个可见行的L列，适配不同筛选结果的位置

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