concat in excel code example
Example 1: excel vba multiple string search with InStr function
Function AnyIn(s$, ParamArray checks()) As Boolean
Dim e
For Each e In checks
If InStrB(s, e) Then AnyIn = True: Exit Function
Next
End Function
MsgBox AnyIn("abcde", "o", 5, "z", "a")
MsgBox AnyIn("abcde", "o", 5, "z", "p")
Example 2: excel vba replaceall in string
Function TemplateReplace$(template$, ParamArray replacements())
Dim c&, s$, t$, e
s = template
For Each e In replacements
c = c + 1
t = "|%" & c & "|"
If InStrB(e, "~~") Then e = Replace(e, "~~", Chr(34))
If InStrB(s, t) Then s = Replace(s, t, e)
Next
TemplateReplace = s
End Function
Const TEMPLATE = "SELECT * FROM |%1| WHERE (survived = |%2|)"
MsgBox TemplateReplace$(TEMPLATE, "titanic", "~~true~~")