VBAは、類似のテキストを含む他の単語を置き換えずにテキストを置き換えます。

Question

列Fのデータのワイルドカードとして「*」を使用しようとしています。すべてのデータは、「Pie **」と同じ形式および長さ"*"

例（0-9）を表す：Pie22、Pie71、Pie15、Hot22、Hot41、Hot98

私は以下のコードをしようとすると、私はCoffeeXXは、検索と置換「ホットされている問題に遭遇"" hotdog "で" chickendog "になります。

これを修正して、.findがテキストを含むものを選択するのではなく、ワイルドカードを表示するようにしましたか？

Set PieXX = Columns("F").Find(What:="Pie**", Lookin:=xlvalues) 
If not PieXX is nothing then 
Columns("F").Replace What:"Pie**", replacement:="Hotdog", _ 
SearchOrder:=xlbyrows, Matchcase:=False, SearchFormat:=False, Replaceformat:=false 
End If 

    Set CoffeeXX = Columns("F").Find(What:="Hot**", Lookin:=xlvalues) 
If not CoffeeXX is nothing then 
Columns("F").Replace What:"Hot**", replacement:="Chicken", _ 
SearchOrder:=xlbyrows, Matchcase:=False, SearchFormat:=False, Replaceformat:=false 
End If 

Answer 1

For each cell in Range("F1", Range("F1").End(xlDown)) 
    If cell.value like "pie??" then cell.Replace "pie", "hi", LookAt:=xlPart 
Next 

これは