VBA筛选非空单元格触发Error 1004，寻求优化解决方案

你说得太对了——.Select语句正是触发Error 1004的核心原因。这类操作严重依赖当前激活的工作表/单元格，一旦工作簿的激活状态意外变化（比如你手动点了其他工作表）、工作表处于保护状态，甚至只是Excel的微小状态波动，都会抛出错误。而且.Select不仅不稳定，运行效率也极低，完全是可以规避的操作。

咱们直接用对象引用的方式重写代码，彻底摆脱.Select的依赖，同时优化逻辑让代码更健壮：

Sub PopulateList()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim sourceRange As Range
    Dim cell As Range
    Dim lastTargetRow As Long
    
    ' 直接绑定工作表对象，完全不用依赖激活状态
    Set wsSource = ThisWorkbook.Worksheets("All Current Projects")
    Set wsTarget = ThisWorkbook.Worksheets("Create Appointments")
    
    ' 清空目标区域，直接操作目标工作表
    wsTarget.Range("A4:J100").Clear
    
    ' 定义要遍历的源数据范围
    Set sourceRange = wsSource.Range("L4:L80")
    
    ' 提前找到目标列F的最后一行，避免循环内重复查找（还能避免空列错误）
    If wsTarget.Range("F3").Value = "" Then
        lastTargetRow = 3
    Else
        lastTargetRow = wsTarget.Range("F3").End(xlDown).Row
    End If
    
    ' 遍历源数据单元格
    For Each cell In sourceRange.Cells
        ' 检查单元格非空，且日期不早于今天（用Date代替Now()更精准，避免时间干扰）
        If Not IsEmpty(cell.Value) And cell.Value >= Date Then
            lastTargetRow = lastTargetRow + 1
            ' 直接写入目标单元格，全程无需切换激活工作表
            wsTarget.Cells(lastTargetRow, "F").Value = cell.Value + 14
        End If
    Next cell
End Sub

关键优化点说明： #

• 彻底移除.Select/.Activate：通过wsSource、wsTarget这类工作表对象直接操作单元格，完全不依赖当前激活的工作表，从根源解决1004错误。
• 优化目标行查找逻辑：先判断F3是否为空，避免原代码中End(xlDown)在空列时跳到工作表最后一行导致的偏移错误。
• 用Date代替Now()：如果你的安装日期是不带时间的纯日期，Date只取当前日期部分，比包含时间的Now()判断更准确。
• 明确的对象绑定：所有范围操作都明确绑定到具体工作表，不会出现“误操作其他工作表”的模糊情况。

额外进阶建议： #

如果你的源数据行数不固定（比如L列的数据可能超过80行），可以把源范围改成动态获取：

' 动态获取L列最后一行的非空单元格
Dim lastSourceRow As Long
lastSourceRow = wsSource.Cells(wsSource.Rows.Count, "L").End(xlUp).Row
Set sourceRange = wsSource.Range("L4:L" & lastSourceRow)

这样不管数据有多少行，都能自动覆盖，不用手动调整范围。

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