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

Answer 2

用

替换你的循环

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

Answer 3

在For Each c In Range（＆＃34; E：E＆＃34;）

之后添加此代码

celltext = c.value

希望得到这个帮助。