vba - 在VBA中搜索范围并替换包含特定字符串的单元格内容

Question

我正在尝试浏览 Excel 电子表格中包含字符串的一系列单元格。如果特定单元格包含特定字符串，我想用同一字符串替换整个单元格。我输入了我认为应该有效的内容，但我什么也没得到。任何帮助，将不胜感激!

Sub Supportclean()

    Dim c As Range
    Dim celltext As String

    For Each c In Range("E:E")
        If InStr(1, celltext, "horse") > 0 Then
            Range(c) = "horse"
        End If
    Next c
End Sub

非常感谢!

Answer 1

您可以一次完成整个列，无需循环:

Sub supportclean()
    Range("E:E").Replace "*horse*", "horse"
End Sub