Excel VBA -比较两个数组并返回在一个数组中但不在另一个数组中的字符串

Sub CompareArrays()
    Dim arr1 As Variant
    Dim arr2 As Variant
    Dim result() As String
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    
    ' 假设数组arr1和arr2已经被赋值
    
    ' 初始化结果数组
    ReDim result(1 To UBound(arr1))
    k = 1
    
    ' 遍历arr1中的每个元素
    For i = LBound(arr1) To UBound(arr1)
        Dim found As Boolean
        found = False
        
        ' 遍历arr2中的每个元素，查找是否存在相同的字符串
        For j = LBound(arr2) To UBound(arr2)
            If arr1(i) = arr2(j) Then
                found = True
                Exit For
            End If
        Next j
        
        ' 如果在arr2中找不到相同的字符串，则将其添加到结果数组中
        If Not found Then
            result(k) = arr1(i)
            k = k + 1
        End If
    Next i
    
    ' 输出结果数组中的字符串
    For i = 1 To k - 1
        Debug.Print result(i)
    Next i
End Sub