Excel VBA尝试赋值Range时出现运行时错误1004的问题求助

报错核心原因 #

• 你当前代码使用的xlCellTypeFormulas参数是用于筛选包含公式的单元格，和你要找空单元格的需求不符，空单元格对应的参数是xlCellTypeBlanks
• VBA的SpecialCells方法在指定范围内没有匹配条件的单元格时，会直接抛出运行时错误1004，这是该方法的固有特性，和ConfigRange是否赋值成功没有直接关系
• 如果你确认ConfigRange没有正确赋值，优先检查工作簿中是否存在名为Sheet1的工作表，注意工作表名称区分大小写、且不能包含前后空格

修正方案 #

先增加错误捕获逻辑，避免无匹配单元格时触发报错，同时把参数替换为找空单元格的正确参数，修正后的代码如下：

Dim ConfigRange As Range
Dim cell As Range
' 先确认工作表存在再赋值，避免对象赋值失败
On Error Resume Next
Set ConfigRange = Worksheets("Sheet1").Range("L72:L92")
On Error GoTo 0
If ConfigRange Is Nothing Then
    MsgBox "未找到对应工作表或范围，赋值失败"
    Exit Sub
End If

' 查找空单元格前增加错误捕获，避免无空单元格时报错
Dim blankRng As Range
On Error Resume Next
Set blankRng = ConfigRange.SpecialCells(xlCellTypeBlanks)
On Error GoTo 0

If Not blankRng Is Nothing Then
    For Each cell In blankRng
        MsgBox cell.Value ' 需要输出空单元格地址可替换为MsgBox cell.Address
    Next cell
Else
    MsgBox "指定范围内没有空单元格"
End If

额外说明 #

如果你的需求是查找公式返回的空值（不是物理空白单元格，是公式计算得到的空结果），xlCellTypeBlanks无法识别这类单元格，需要遍历范围逐一判断：

Dim ConfigRange As Range, cell As Range
Set ConfigRange = Worksheets("Sheet1").Range("L72:L92")
For Each cell In ConfigRange
    If cell.Value = "" Then
        MsgBox cell.Address & " 是空值"
    End If
Next cell

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