VBA筛选含N6的B列并填充空白C列问题求助

你的代码存在两个核心问题：

1. AutoFilter语句末尾多余的逗号会导致语法错误，无法正常执行后续逻辑
2. Replace操作未限定在筛选后的可见单元格，直接对整列C操作，无法精准修改目标单元格

修正后的VBA代码 #

With Range("A1:D8")
    ' 清除原有筛选状态
    .AutoFilter
    ' 筛选B列包含"N6"且C列为空的行
    .AutoFilter Field:=2, Criteria1:="N6*", Operator:=xlAnd
    .AutoFilter Field:=3, Criteria1:=""
    ' 仅对C列可见空白单元格替换为19
    .Columns(3).SpecialCells(xlCellTypeVisible).Replace What:="", Replacement:="19", LookAt:=xlWhole
End With
' 可选：清除筛选，显示所有数据
Range("A1:D8").AutoFilter

关键修正点说明 #

• 筛选匹配规则：将Criteria1:="N6"改为"N6*"，实现"包含N6"的模糊匹配（原写法是完全匹配N6，不符合需求）
• 限定操作范围：用SpecialCells(xlCellTypeVisible)只处理筛选后的可见单元格，避免修改无关数据
• 语法修正：删除AutoFilter语句末尾多余的逗号，确保代码能正常编译执行
• 范围锁定：全程基于A1:D8操作，避免误修改整列其他区域

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