VBA Vlookup-Type несоответствие - PullRequest
0 голосов
/ 16 февраля 2019

У меня есть код 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...