Question

我想搜索我的命名工作表（AdjacencyData）上的所有单元格，看看它们是否包含值＆＃34;未找到主类别列表。＆＃34;我的单元格包含长字符串，隐藏在其中的某个地方可能就是这个短语。我想搜索整个单元格以查看该短语是否在其中的任何位置，然后如果单元格在任何地方包含该短语，则将该整个值替换为具有新短语的单元格＆＃34; LOCATION UNSURE＆＃34;有没有办法做到这一点？我有一些猜测，但我对查找和替换选项不太满意。

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

按部分搜索单元格值，替换整个单元格值

1 个答案: