vector查找特定元素是否存在_VBA例9 比对指定字符串的每个元素是否存在于另一个字符串中...

如题，简化：在字符串1中查找字符串2中的每个字符，如果每个字符都存在于字符串1中，则符合结果

思路

1、设计一个函数，其有两个参数s1,s2，类型皆为字符串，完成如下功能：依次提取s2中的每个字符，然后查找其是否存在于s1中，如果都存在，返回True，否则返回False

2、主程序提取第1步函数所需要的两个参数，然后接收函数返回值，如果3次都返回True，则为需要的结果

代码

Function Check(s1 As String, s2 As String) Dim i!, arr, l!, result!  l = Len(s2) ReDim arr(1 To l) For i = 1 To l If VBA.InStr(1, s1, Mid(s2, i, 1)) > 0 Then result = result + 1 Next i  If result = 3 Then Check = True Else Check = False End If​End Function​Sub t() Dim arr, x!, y!, s1$, s2$, result!, brr  [e2:e66356].ClearContents arr = [a1:d5] ReDim brr(1 To UBound(arr))  For x = 1 To 5 For y = 2 To 4 s1 = arr(x, 1) s2 = arr(x, y) If Check(s1, s2) Then result = result + 1 Next y If result = 3 Then brr(x) = arr(x, 1) result = 0 Next x  [e1].Resize(UBound(arr)) = Application.Transpose(brr)​End Sub

效果图