利用VBA 查看A列的數據在B列是否存在並標記A列重復的為黃色 數據量很到 求教壹個便捷宏

此代碼運用了字典方法來判斷，同時是用數組來循環的，循環次數為2次，妳試下

代碼如下

Sub test()

Dim arr, x&

Dim d As Object

Set d = CreateObject("scripting.dictionary")

arr = Sheet1.UsedRange

For x = 1 To UBound(arr)

d(arr(x, 2)) = ""

Next x

For x = 1 To UBound(arr)

If d.exists(arr(x, 1)) Then

Sheet1.Cells(x, 1).Interior.ColorIndex = 6

End If

Next x

d.RemoveAll

Erase arr

End Sub