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

【问题标题】：Searching through range and replacing content of cells that contain specific string in VBA在 VBA 中搜索范围并替换包含特定字符串的单元格内容
【发布时间】：2017-09-08 19:19:58
【问题描述】：

我正在尝试遍历 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

非常感谢！

【问题讨论】：

celltext 未设置为任何值

标签： vba excel

【解决方案1】：

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

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

【讨论】：

啊，完美，谢谢。当答案就在那里时，我真的想要一些过于复杂的东西......谢谢！
请通过单击答案旁边的复选标记来选择正确。它将从未回答的队列中删除问题。选择您使用的那个。
绝对是更好的答案。有时，让事情保持现状而不是寻找更好的解决方案太诱人了！ :)

【解决方案2】：

用

替换你的循环

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

【讨论】：

【解决方案3】：

在 For Each c In Range("E:E") 之后添加此代码

celltext = c.value

希望对您有所帮助。

【讨论】：