Сравнение больших таблиц для цикла.Есть ли более быстрый способ?

Question

В настоящее время я использую цикл For для итерации электронной таблицы из 10 тыс. Строк и сравнения данных с другой электронной таблицей аналогичного размера.Как вы уже догадались, это занимает значительное время.Есть ли более быстрый метод?

Я попытался использовать цикл For, начиная с верхней части одного листа, а затем сравнивая информацию каждой строки со вторым листом, используя метод Find.Я не могу использовать метод автофильтра, чтобы каким-либо образом сократить диапазон поиска.

Private Sub Import_NewReport()

Dim wb1 As Workbook, wb2 As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet

Set wb1 = ThisWorkbook
Set wb2 = Application.Workbooks.Open("C:\Users\Owner\Desktop\Order Entry 
Summary - Detail Report.csv")
Set ws1 = wb1.Worksheets("Master")
Set ws2 = wb2.Worksheets("Order Entry Summary - Detail Re")
ws1LastRow = ws1.Cells(Rows.Count, "A").End(xlUp).Row
ws2LastRow = ws2.Cells(Rows.Count, "A").End(xlUp).Row
ws2.AutoFilterMode = False
i = 1  

For ws2Row = 2 To ws2LastRow

JN = ws2.Cells(ws2Row, "D").Text ' Job Number from New Report

If ws1.Range("D:D").Find(JN) Is Nothing Then

ws1.Cells(ws1LastRow + i, "A").EntireRow.Value = ws2.Cells(ws2Row, "A").EntireRow.Value
ws1.Cells(ws1.Range("D:D").Find(JN).Row, "BB").Value = GetGUID

i = i + 1

Else

rTo = ws1.Range("D:D").Find(JN).Row
ws2.Cells(ws2Row, "A").Resize(, 10).Value = ws1.Cells(rTo, "A").Resize(, 10).Value
ws2.Cells(ws2Row, "M").Resize(, 2).Value = ws1.Cells(rTo, "M").Resize(, 2).Value
ws2.Cells(ws2Row, "Z").Value = ws1.Cells(rTo, "Z").Value
ws2.Cells(ws2Row, "AH").Value = ws1.Cells(rTo, "AH").Value
ws2.Cells(ws2Row, "AB").Value = ws1.Cells(rTo, "AB").Value
ws2.Cells(ws2Row, "AX").Value = ws1.Cells(rTo, "AX").Value

If ws1.Cells(rTo, "BB").Value = "" Then
ws1.Cells(rTo, "BB").Value = GetGUID
End If
End If
Next ws2Row
End Sub