Является ли XLOOKUP быстрее при использовании в коде VBA по сравнению с другими методами поиска, и как это влияет на производительность при применении к большим наборам данных? [закрыт]

ПРИМЕНИТЕ XLOOKUP БЫСТРЕЕ С ПОМОЩЬЮ КОДА VBA

ПРИМЕНИТЕ XLOOKUP БЫСТРЕЕ С ПОМОЩЬЮ КОДА VBA С ИСПОЛЬЗОВАНИЕМ ПЕРЕМЕННЫХ

ПРИМЕНИТЕ XLOOKUP БЫСТРЕЕ С ПОМОЩЬЮ КОДА VBA С ИСПОЛЬЗОВАНИЕМ СЛОВАРЯ

ПРИМЕНИТЕ XLOOKUP БЫСТРЕЕ С ПОМОЩЬЮ КОДА VBA С ИСПОЛЬЗОВАНИЕМ СЛОВАРЯ ubound

ПРИМЕНИТЕ XLOOKUP БЫСТРЕЕ С ПОМОЩЬЮ КОДА VBA С ИСПОЛЬЗОВАНИЕМ СЛОВАРЯ

Sub ApplyMultipleXLookupsWithDictionary()

Dim wsSrc As Worksheet, wsTgt As Worksheet

Dim lastRowSrc As Long, lastRowTgt As Long, i As Long

Dim lookupDict As Object, key As Variant, result As Variant

Dim sourceData As Variant, outputData As Variant

' Инициализация словаря и листов
Set lookupDict = CreateObject("Scripting.Dictionary")
Set wsSrc = ThisWorkbook.Sheets("Sheet1")
Set wsTgt = ThisWorkbook.Sheets("Sheet2")

' Загрузить исходные данные в словарь
sourceData = wsSrc.Range("A1:E" & wsSrc.Cells(wsSrc.Rows.Count, "A").End(xlUp).Row).Value
For i = 1 To UBound(sourceData, 1)
    key = sourceData(i, 1)
    If Not lookupDict.Exists(key) Then
        lookupDict(key) = Array(sourceData(i, 2), sourceData(i, 3), sourceData(i, 4)) ' Только B, C, E
    End If
Next i

' Отключить обновления для повышения производительности
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

' Загрузить целевые данные и подготовить выходные данные
lastRowTgt = wsTgt.Cells(wsTgt.Rows.Count, "A").End(xlUp).Row
ReDim outputData(1 To lastRowTgt - 1, 1 To 9) ' Столбцы B до J

For i = 2 To lastRowTgt
    key = wsTgt.Cells(i, 1).Value
    If lookupDict.Exists(key) Then
        result = lookupDict(key)
        outputData(i - 1, 1) = result(0) ' Столбец B
        outputData(i - 1, 2) = result(0) ' Столбец C
        outputData(i - 1, 3) = result(1) ' Столбец E
        outputData(i - 1, 4) = result(1) ' Столбец F
        outputData(i - 1, 5) = result(2) ' Столбец H
    Else
        FillNotFound outputData, i - 1
    End If
Next i

' Записать выходные данные обратно в целевой лист
wsTgt.Range("B2:H" & lastRowTgt).Value = outputData

' Применить формулы XLOOKUP
For i = 2 To lastRowTgt
    With wsTgt
        .Cells(i, 2).Formula = "=XLOOKUP(A" & i & ", Sheet1!A:A, Sheet1!B:B, ""не найдено"", 0, 1)"
        .Cells(i, 3).Formula = "=XLOOKUP(A" & i & ", Sheet1!A:A, Sheet1!B:B, ""не найдено"", 0, -1)"
        .Cells(i, 5).Formula = "=XLOOKUP(A" & i & ", Sheet1!A:A, Sheet1!C:C, ""не найдено"", 0, 1)"
        .Cells(i, 6).Formula = "=XLOOKUP(A" & i & ", Sheet1!A:A, Sheet1!C:C, ""не найдено"", 0, -1)"
        .Cells(i, 8).Formula = "=XLOOKUP(A" & i & ", Sheet1!A:A, Sheet1!E:E, ""не найдено"", 0, -1)"
    End With
Next i

' Включить обновления обратно
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

MsgBox "Операции XLOOKUP завершены.", vbInformation

End Sub

Sub FillNotFound(outputData As Variant, index As Long)

Dim j As Long

For j = 1 To 5 ‘ Заполнить столбцы B до F

outputData(index, j) = “не найдено”

Next j

End Sub