Auto Fill宏捕获额外数据：修复筛选后可见单元格自动填充VBA代码

原代码的核心问题在于依赖Select/Selection操作，且AutoFill无法正确处理筛选后的不连续可见区域，同时目标列的引用和你的需求（E列）不匹配。以下是修复后的代码，保留了原有的筛选逻辑，同时解决了可见单元格填充的问题：

' 执行筛选（保留原筛选规则：第4列等于"0"）
ActiveSheet.Range("A1").AutoFilter Field:=4, Criteria1:="0"

' 定义E列中需要填充的可见单元格区域（从E2开始到最后一行数据）
Dim targetRange As Range
On Error Resume Next ' 处理筛选后无可见单元格的异常情况
Set targetRange = ActiveSheet.Range("E2:E" & ActiveSheet.Cells(Rows.Count, "E").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
On Error GoTo 0

' 若存在可见单元格，直接为所有可见单元格赋值公式
If Not targetRange Is Nothing Then
    targetRange.FormulaR1C1 = "=VLOOKUP(RC[-4],'[ccc]Cos'!R2C3:R400000C4,2,False)"
End If

关键修改说明： #

• 移除Select/Selection依赖：避免因活动单元格变化导致的错误，直接操作目标区域更稳定
• 直接赋值公式而非AutoFill：筛选后的可见区域是不连续的，AutoFill无法覆盖所有可见单元格，直接给区域赋值公式会自动应用到每个可见单元格
• 适配E列需求：将目标列调整为E列，公式中RC[-4]表示当前单元格向左偏移4列（即A列），对应原公式的查找源
• 增加异常处理：防止筛选后没有符合条件的可见单元格时抛出错误
• 精准定位最后一行：用Cells(Rows.Count, "E").End(xlUp).Row获取E列实际有数据的最后一行，避免引用整列的冗余

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