☰

如果文本字符串存在，则选择包含文本字符串的单元格

tag-icon • tag-icon macos microsoft-excel vba
如果文本字符串存在，则选择包含文本字符串的单元格

我录制了一个宏，它找到一个文本字符串然后删除它。我的问题是有时该文本字符串不存在。我希望有人能帮助我更改宏以检查文本字符串是否存在，然后选择它。以下是我目前拥有的。提前致谢。

Cells.Find(What:="Test" _
, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:= _
xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) _
.Activate
Selection.ClearContents

答案1

Range.FindNothing当找不到搜索词时返回，因此这应该有效：

Set found = Cells.Find(What:="Test" _
, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:= _
xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

If Not found Is Nothing Then
    found.Activate
    found.ClearContents
End If

found.Activate如果您不想将光标移动到找到字符串的位置，则可以省略。

相关内容