搜索范围并替换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