具有多个字符串的 VBA InStr答案

【问题标题】：VBA InStr with multiple Strings具有多个字符串的 VBA InStr
【发布时间】：2018-04-11 18:10:38
【问题描述】：

我想用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 ？

提前致谢

【问题讨论】：

案例选择最适合这个。
由于您多次重复相同的代码，请考虑编写一个函数并调用它。

标签： string vba if-statement

【解决方案1】：

使用Case 是一种解决方案。

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

回答类似问题：

InStr array is in string

【讨论】：

您的类似问题是 foo bar。这是一个 VBA 问题，而不是 VB.NET 问题。