如何用VBA筛选A列指定值后批量更新C列并高亮更新项？

原代码存在的问题 #

• 依赖Selection对象，操作对象不固定，导致高亮位置偏移、填充范围出错
• 填充时用Offset(,5)偏移了5列，实际应该操作C列，这是无法填充到目标列的核心原因
• 硬编码固定行数$A$2:$C$999999，无法适配行数动态变化的数据集
• 多余的Field:=3筛选（筛选C列为空），会过滤掉部分需要处理的行

修正后的代码 #

Sub UpdateAndHighlightTargetRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim targetRange As Range
    
    ' 指定操作的工作表，可根据实际修改表名
    Set ws = ThisWorkbook.ActiveSheet
    ' 动态获取A列最后一行，适配任意行数的数据集
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    ' 定义完整的数据范围（从第2行表头下方开始）
    Set targetRange = ws.Range("A2:C" & lastRow)
    
    ' 清除工作表已有的筛选状态
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 筛选A列中值为"ZCNC"和"ZSFG"的行
    targetRange.AutoFilter Field:=1, Criteria1:=Array("ZCNC", "ZSFG"), Operator:=xlFilterValues
    
    ' 处理无符合条件行的情况，避免代码报错
    On Error Resume Next
    Dim targetCells As Range
    ' 定位筛选后可见行的C列单元格
    Set targetCells = targetRange.Columns(3).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 如果存在符合条件的单元格，执行填充和高亮
    If Not targetCells Is Nothing Then
        ' 为C列填充"X"
        targetCells.Value = "X"
        ' 设置黄色高亮
        With targetCells.Interior
            .Pattern = xlSolid
            .Color = 65535
            .TintAndShade = 0
        End With
    End If
    
    ' 清除筛选，恢复显示所有行
    ws.AutoFilterMode = False
End Sub

关键修正说明 #

• 动态范围适配：通过lastRow获取A列最后一行，自动调整数据范围，不再受固定行数限制
• 明确操作对象：全程使用工作表和范围对象，彻底抛弃Selection，避免操作偏移
• 精准定位目标列：直接通过targetRange.Columns(3)定位C列，避免偏移错误
• 错误防护：增加On Error处理，防止无符合条件行时代码崩溃
• 简化筛选逻辑：移除多余的C列筛选，确保所有A列符合条件的行都被处理

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