excel - 循环遍历范围内的单元格以查找手动设置为空白的单元格

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”。为什么上面的 Sub 不起作用？

标签： excelvba

Answer 1

当您可以使用时为什么要循环：

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