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？

先谢谢

Answer 1

使用Case是一种解决方案。

Array是另一种解决方案。您可以将值填充到数组中，并为数组中的每个值执行For Loop。

回答类似问题：

  

InStr array is in string