循环访问范围内的单元格以查找手动设置为空白的单元格

Question

我正在尝试使用以下代码遍历一系列单元格，搜索包含=""单元格：

Sub ReplaceEmptyCells()
Dim i As String
Dim k As String
Dim cell As Range
i = "=" & Chr(34) & Chr(34)
k = "#N/A"
For Each cell In ActiveSheet.Range("C1:AA51") 'Desired range to search through
If cell.Value = i Then
cell.Replace What:=i, Replacement:=k, MatchCase:=True
End If
Next cell
End Sub

此值已在另一张纸上手动设置，并且有问题的单元格已复制并粘贴为链接(这样做是为了避免空单元格在粘贴后转换为 0，同时在原始数据中保持 0(。

目的是使新工作表上的"空白"单元格的内容为"#N/A"。为什么上面的子不起作用？

Answer 1

当你可以只使用时，为什么要循环：

ActiveSheet.Range("C1:AA51").Replace  What:=i, Replacement:=k, Lookat:=xlWhole