如题,简化:在字符串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