按部分search单元值，replace整个单元值

我想search我命名的工作表（AdjacencyData）上的所有单元格以查看它们是否包含值“在主类别列表中找不到”。 我的单元格包含很长的string，并且隐藏在某处，可能是这个短语。 我想search整个单元格，看看这个短语是否在任何地方，然后如果单元格中包含这个短语，用一个新的短语“LOCATION UNSURE”replace整个单元格的值有没有什么办法做到这一点？ 我有一些猜测，但我发现和replace选项不是很好。

find = "NOT FOUND IN MASTER CAT LIST" f = AdjacencyData.Cells.find(What:=find, lookat:=xlPart) If f Is Nothing Then Else 

不知道下一步该做什么，这部分代码是我唯一的想法！

Answer 1

您将需要投资.Range.FindNext函数：

 FindMe = "NOT FOUND IN MASTER CAT LIST" With Sheets("AdjacencyData").Range("Defined Range") Set f = .Find(What:=FindMe, lookin:=xlValues) If Not f Is Nothing Then firstAddress = f.Address Do f.Value = "LOCATION UNSURE" Set f = .FindNext(f) Loop While Not f Is Nothing And f.Address <> firstAddress End If End With