excel VBA里怎么判断两个字符串有相同的子集？类似于Python中的set(A)=set(B)

发布网友发布时间：2022-05-20 17:06

共2个回答

热心网友时间：2023-11-02 23:33

VBA没有直接这样的用法和函数，下面是我写的一个自定义函数，你参考一下

Option Explicit

Sub test()
    Dim a As String, b As String
    a = "abc"
    b = "cdefg"
    MsgBox StrCom(a, b)
End Sub
Function StrCom(ByVal str1 As String, ByVal str2 As String) As Boolean
    Dim i As Integer
    Dim tmp As String
    StrCom = False
    For i = 1 To Len(str1)
        tmp = Mid(str1, i, 1)
        If InStr(1, str2, tmp) > 0 Then
            StrCom = True
            Exit Function
        End If
    Next i
End Function

热心网友时间：2023-11-02 23:34

只能用循环比较吧。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com

excel VBA里怎么判断两个字符串有相同的子集？ 类似于Python中的set(A)=set(B)

excel VBA里怎么判断两个字符串有相同的子集？类似于Python中的set(A)=set(B)