Sub yy() 'hlly888

Cells.Interior.ColorIndex = xlNone

Application.ScreenUpdating = False

Dim dc As Object, arr, yrr, i&, j%, tim

tim = Timer

Set dc = CreateObject("scripting.dictionary")

arr = Sheet1.[a1].CurrentRegion

yrr = Sheet2.[a1].CurrentRegion

? ?For i = 1 To UBound(yrr)

? ? ? ?For j = 1 To UBound(yrr, 2)

? ? ? ? ? ?dc(yrr(i, j) & i & j) = ""

? ? ? ?Next

? ?Next

? ?For i = 1 To UBound(arr)

? ? ? ?For j = 1 To UBound(arr, 2)

? ? ? ? ? ?If Not dc.exists(arr(i, j) & i & j) Then Cells(i, j).Interior.ColorIndex = 3

? ? ? ?Next

? ?Next

? ?

Application.ScreenUpdating = True

MsgBox Format(Timer - tim, "0.00") & "秒"

End Sub