複数の文字列を持つVBA InStr

Question

複数の文字列をInStrでチェックし、必要に応じて置き換えたいと考えています。私はこれを行うには、より簡単かつ直感的な方法があると確信しているが、私はどれだけ知らない

s1 = "ABC" s2 = "ABCD" s3 = "ABCDE" 

If InStr(s1,"D") <> 0 Then 
    s1 = "" 
End If 
If InStr(s2,"D") <> 0 Then 
    s2 = "" 
End If 
If InStr(s3,"D") <> 0 Then 
    s3 = "" 
End If 

：よう

何か。
おそらくLoopまたはCase？ Caseを使用して

アドバンス

Answer 1

のおかげでは、ソリューションです。

Arrayが別の解決策です。配列に値を入力し、配列の各値に対してFor Loopを実行することができます。

同様の質問への回答：選択

InStr array is in string