範囲内検索と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

範囲の各C（「Eについては後にこのコードを追加します。E "）

celltext = c.value 

このヘルプが必要です。