VBA错误1004（未找到单元格）的解决方法咨询

核心问题分析 #

• 错误1004触发原因：当筛选后的目标范围内不存在空白单元格时，SpecialCells(xlCellTypeBlanks)会直接抛出错误，因为找不到符合条件的单元格。
• 直接引用对象时误填充非目标单元格：未限定操作范围为筛选后的可见单元格，导致操作覆盖了隐藏行或已有内容的单元格。

修正后的代码示例 #

Dim targetRange As Range
Dim blankCells As Range

' 定义目标列的有效范围（确保Rows(i)和row_number_1为合法行号）
Set targetRange = Sheets(sheets(k)).Range(Columns(j) & Rows(i) & ":" & Columns(j) & row_number_1)

' 捕获无空白单元格的异常情况
On Error Resume Next
' 先筛选可见单元格，再从中提取空白单元格
Set blankCells = targetRange.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeBlanks)
On Error GoTo 0 ' 恢复默认错误处理

' 仅当找到空白单元格时执行填充
If Not blankCells Is Nothing Then
    blankCells.FormulaR1C1 = "P"
End If

关键优化点 #

• 错误防护：用On Error Resume Next和On Error GoTo 0包裹SpecialCells调用，避免无空白单元格时触发1004错误。
• 锁定可见范围：先通过xlCellTypeVisible限定操作范围为筛选后的可见单元格，再从中筛选空白单元格，确保只操作目标区域的指定单元格。
• 跳过Select操作：直接操作Range对象，既提升代码运行效率，又避免因选中范围错误导致的误操作。

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