Excel VBA -比较两个不同工作表中的两列，然后复制/粘贴-速度-需要一个多小时

Sub CompareAndCopy()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim col1 As Range, col2 As Range
    Dim lastRow1 As Long, lastRow2 As Long
    Dim i As Long, j As Long
    
    ' 设置要比较的工作表和列
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    Set col1 = ws1.Range("A1:A" & lastRow1)
    Set col2 = ws2.Range("A1:A" & lastRow2)
    
    ' 遍历第一个工作表的列
    For i = 1 To col1.Rows.Count
        ' 遍历第二个工作表的列
        For j = 1 To col2.Rows.Count
            ' 比较两列中的值
            If col1.Cells(i).Value = col2.Cells(j).Value Then
                ' 将匹配的值复制到第一个工作表的B列
                ws1.Cells(i, "B").Value = col1.Cells(i).Value
                Exit For ' 找到匹配值后退出内部循环
            End If
        Next j
    Next i
    
    ' 清除对象引用
    Set ws1 = Nothing
    Set ws2 = Nothing
    Set col1 = Nothing
    Set col2 = Nothing
End Sub