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
