在VBA中比较2个数组并写入另一个工作表

Sub CompareArrays()
    Dim arr1 As Variant
    Dim arr2 As Variant
    Dim resultSheet As Worksheet
    Dim i As Long
    Dim j As Long
    Dim resultRow As Long
    
    ' 假设数组已经被填充了数据
    arr1 = Array("A", "B", "C", "D")
    arr2 = Array("B", "D", "E", "F")
    
    ' 创建新的工作表
    Set resultSheet = ThisWorkbook.Sheets.Add
    
    ' 初始化结果行数
    resultRow = 1
    
    ' 遍历第一个数组
    For i = LBound(arr1) To UBound(arr1)
        ' 遍历第二个数组
        For j = LBound(arr2) To UBound(arr2)
            ' 比较两个数组的元素
            If arr1(i) = arr2(j) Then
                ' 将相等的元素写入新工作表
                resultSheet.Cells(resultRow, 1).Value = arr1(i)
                resultRow = resultRow + 1
                Exit For ' 找到匹配的元素后，退出内部循环
            End If
        Next j
    Next i
End Sub