Question

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

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

Answer 1

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

Answer 2

只能用循环比较吧。