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
