关于数据对比_相同项与不同项的使用感受

532926044

假设对比数据是A列和B列（数值型）这个功能适用于数据1和数据2里面没有重复值。

如果A列有一个1000，而B列有两个1000，那么这三个1000都会被标记，导致A、B列的合计不相等。
能不能设置成A列有几个数据，对应B列也是相同的个数被标记？类似于一一对应的关系。

532926044

这个功能和以下代码类似，但是同样的问题，如果有多个相同的数据且数据1和数据2的相同数据个数不同，就不能一一对应上，我想了很久不知道怎么改，哪位大神帮我看看。

Sub ss()
    x = Sheet1.Range("a65536").End(xlUp).Row
    y = Sheet1.Range("a65536").End(xlUp).Row
    Dim arr1() As Variant, arr2() As Variant, arr3()
    arr1 = WorksheetFunction.Transpose(Sheet1.Range("a1: a" & x))
    arr2 = WorksheetFunction.Transpose(Sheet1.Range("b1: b" & y))
    k = 1
    For m = 1 To UBound(arr1)
        For n = 1 To UBound(arr2)
            If arr1(m) = arr2(n) Then
                k = k + 1
                ReDim Preserve arr3(1 To k)
                arr3(k) = arr1(m)
                Sheet1.Range("b" & n + 1).Interior.Color = RGB(184, 184, 184)
            End If
        Next
    Next
















End Sub