Более быстрый способ выполнения оператора If - PullRequest
Новая
       7

Более быстрый способ выполнения оператора If

0 голосов
/ 31 мая 2018

Есть ли более быстрый способ запуска приведенного ниже кода?лист "hr" содержит 24000 строк, и для выполнения этого простого запроса требуется более 30 минут. 

Sub populateHRData17()
'APAC
Set report = ActiveWorkbook.Worksheets("Report")
Set hr = ActiveWorkbook.Worksheets("HR_Report")
Set apac = ActiveWorkbook.Worksheets("APAC_L_R")

For x = 2 To report.UsedRange.Rows.Count
    If report.Cells(x, 1) = "" Then
    End If
Next x


For i = 2 To hr.UsedRange.Rows.Count
  For j = 2 To apac.UsedRange.Rows.Count

    If apac.Cells(j, 2) = hr.Cells(i, 3) Then
       report.Cells(x, 1) = apac.Cells(j, 2)


 x = x + 1
    End If

Next j
Next i
End Sub
...