У меня есть код vlookup, он отлично работает в моем Excel 2019, но при попытке запустить тот же код на моем офисном ПК выдает ошибку несоответствия типов.Я потратил много времени, чтобы найти решение, но не могу.
Ниже приведен следующий код
Sub Vlookup()
Dim lookfor As Variant
Dim rng As Range
Dim MaturedPolicies As Variant
A = Application.WorksheetFunction.CountA(Worksheets("SQL Results").Range("$B:$B"))
lookfor = Sheets("SQL Results").Range("B2:B" & A).Value
Set rng = Sheets("SQL Results").Range("$Y$2:$Y$100")
MaturedPolicies = Application.WorksheetFunction.Vlookup(lookfor, rng, 1,
False)
Application.ScreenUpdating = False
Sheets("SQL Results").Range("W2:W" & A).Value = MaturedPolicies
Application.ScreenUpdating = True
End Sub