VBA代码填充空白单元格后报错1004，如何修改避免无空白时出错？

原代码的核心问题是：当指定范围内没有空白单元格时，SpecialCells(xlCellTypeBlanks)无法找到匹配单元格，直接抛出运行时错误1004。以下两种修改方案可以彻底解决这个问题：

方案一：错误捕获机制（简洁高效） #

通过临时跳过错误，判断是否找到空白单元格后再执行填充，是处理这类场景最常用的方式：

Sub FillRow()
    Dim blankCells As Range
    Dim LR As Long
    
    With S_Data
        LR = .Cells(Rows.Count, "C").End(xlUp).Row
        ' 尝试定位空白单元格，捕获"未找到"的错误
        On Error Resume Next
        Set blankCells = .Range("H2:H" & LR).SpecialCells(xlCellTypeBlanks)
        On Error GoTo 0 ' 恢复默认错误处理
        
        ' 仅当存在空白单元格时执行填充
        If Not blankCells Is Nothing Then
            blankCells.FormulaR1C1 = "=R[-1]C"
        End If
    End With
End Sub

• 用With S_Data简化工作表引用，同时取消冗余的Activate和Select操作（这类操作不仅没必要，还容易引发其他意外错误）
• On Error Resume Next临时跳过找不到单元格的错误，让代码继续执行
• 通过判断blankCells是否为Nothing，确认是否存在空白单元格，再执行填充逻辑

方案二：先统计空白单元格数量（直观可控） #

通过CountBlank函数提前判断区域内是否有空白单元格，从根源避免报错：

Sub FillRow()
    Dim LR As Long
    Dim targetRange As Range
    
    With S_Data
        LR = .Cells(Rows.Count, "C").End(xlUp).Row
        Set targetRange = .Range("H2:H" & LR)
        
        ' 统计空白单元格数量，大于0时才执行填充
        If Application.CountBlank(targetRange) > 0 Then
            targetRange.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        End If
    End With
End Sub

• 先计算目标区域内的空白单元格总数，只有数量大于0时才调用SpecialCells，彻底规避"未找到单元格"的错误

两种方案都遵循了VBA编写的最佳实践：直接操作单元格对象而非依赖选中状态，既能提升代码稳定性，也能加快执行速度。

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