数组没有帮助速度

Question

我创建了一个数组来加速这个，但它似乎需要永远运行。有没有办法说一旦第一个如果满意移动到下一个我？它似乎找到了匹配（总是只有一个），但仍然搜索所有的年度阵列。

请提供详细信息我在一张桌子上有ID并希望在另一张桌子上找到匹配的ID，然后从第二张桌子中取出日期并将其放入第一张桌子（并按今天日期减去）< / p>

Set report = ActiveWorkbook.Worksheets("Report")
Set uwat = ActiveWorkbook.Worksheets("UWAT")

For i = 2 To report.UsedRange.Rows.Count
For Z = 2 To annual.UsedRange.Rows.Count
annualArray1 = Worksheets("Annual").Range("B1:T2000").Value

If CLng(report.Cells(i, 1)) = annualArray1(Z, 1) And annualArray1(Z, 19) <> "" Then
       report.Cells(i, 19) = Date - CDate(Mid(annualArray1(Z, 19), 16, 10))
    End If

Next Z
Next i