在工作表中的每个单元格之间循环的快速方法是什么

Question

我正在比较两个工作表的A列，如果它们匹配，则将工作表1第二列中的值加到工作表2第二列中的总和中

分别为Sheet1和Sheet2 在运行下面的代码之前，工作表2的B列为空。

Function TotalNames()

Dim sht1 As Worksheet
Dim sht2 As Worksheet

Set sht1 = ActiveWorkbook.Worksheets("Sheet1")
Set sht2 = ActiveWorkbook.Worksheets("Sheet2")

For i = 1 To 4

    For j = 1 To 8

        If sht1.Cells(j, 1).Value = sht2.Cells(i, 1).Value Then

            sht2.Cells(i, 2).Value = sht2.Cells(i, 2).Value + sht1.Cells(j, 2).Value

        End If

    Next j

Next i

End Function

我正在做一个项目，该项目比较这两张纸之间的许多列和行，并且可能需要很长时间才能处理。我还关闭了屏幕更新功能，将计算方式更改为手动方式，但希望可以使用数组或范围来加快此速度，但正在努力从何处开始。