對比兩個數據表的數據

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

最后編輯于
?著作權歸作者所有,轉載或內容合作請聯系作者
平臺聲明:文章內容(如有圖片或視頻亦包括在內)由作者上傳并發布,文章內容僅代表作者本人觀點,簡書系信息發布平臺,僅提供信息存儲服務。

推薦閱讀更多精彩內容