VBA填充指定区域空单元格失败问题求助

我尝试用VBA填充E36:G45区域内的空单元格，参考其他问题写了两段代码，但都没生效。该区域既有空单元格也有非空单元格，我已经清除过单元格内容，也没有会导致单元格不可编辑的子过程。

两段代码如下：

第一段：

Dim rCell As Range

For Each rCell In ws.Range("E36:G45")
    If IsEmpty(rCell.Value) = True Or IsNull(rCell.Value) = True Or rCell.Value = "" Then
    rCell.Value = -999
    End If
Next rCell

第二段：

For Each rCell In ws.Range("E36:G45")
    If IsEmpty(rCell.Value) Or IsNull(rCell.Value) Or rCell.Value = "" Then
    rCell.Value = -999
    End If
Next rCell

可能的问题点及解决方法： #

• 未正确赋值工作表对象ws：代码里的ws必须提前指定具体工作表，比如添加Set ws = ThisWorkbook.Worksheets("你的工作表名")（替换成实际表名），否则代码无法定位到目标工作表。
• 单元格存在不可见字符：有些单元格看起来是空的，但实际包含空格、换行符等不可见字符，此时rCell.Value = ""判断会失效。可以把判断条件改成Trim(rCell.Value) = ""，去除首尾空白后再判断。
• 改用更高效的批量处理方式：循环逐个判断效率低且容易出问题，直接用SpecialCells定位空单元格批量赋值：

  Dim ws As Worksheet
  Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为你的工作表名称
  
  On Error Resume Next ' 避免区域无空单元格时触发错误
  ws.Range("E36:G45").SpecialCells(xlCellTypeBlanks).Value = -999
  On Error GoTo 0
  

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