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无法正常工作？

Answer 1

为什么循环使用时只能使用：

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

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

1 个答案: