求二列不同数据

yfxqyg

loirol 发表于 2025-4-17 10:45
哪里不对了，重复的都会标出来

自己在D186空了一格挖了个坑

O(∩_∩)O谢谢

yfxqyg

问题解决，O(∩_∩)O谢谢各位

gwjkkkkk

Option Explicit
Sub test2()
    Dim ar, br, i&, j&, r&, isFlag As Boolean
   
    Application.ScreenUpdating = False
   
    r = Cells(Rows.Count, "D").End(xlUp).Row
    ar = Range("D2:D" & r).Value
    With [A2].CurrentRegion
        .Interior.Color = xlNone
        br = .Value
        For i = 2 To UBound(br)
            isFlag = False
            For j = 2 To UBound(ar)
                If br(i, 2) = ar(j, 1) Then
                    isFlag = True: Exit For
                End If
            Next j
            If isFlag Then .Cells(i, 1).Resize(, UBound(br, 2)).Interior.Color = vbRed
        Next i
        
    End With
        
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

代码 审核中。。。

今铭昔

zhangcheng6688

学习一下字典
Sub test()
lastr = Cells(Rows.Count, "d").End(xlUp).Row
arr = Range("d2:d" & lastr)
Set dic = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   dic(arr(i, 1)) = ""
Next
brr = [a2].CurrentRegion
For i = 2 To UBound(brr)
   If dic.exists(brr(i, 2)) Then
      Cells(i + 1, 2).Interior.Color = vbRed
   End If
Next
Set dic = Nothing
End Sub