4

次のスクリプトがあり、VLOOKUP エラーが発生します。

Dim DataRange, LookupRange As Range
Dim Data, Test As Variant

Set DataRange = Sheets("sheet").Range("A1:K12000")
Set LookupRange = sheets("sheet2").Range("A1:C50")
Data = DataRange.Value

For i = LBound(Data, 1) To UBound(Data,1)
  ReDim Preserve Test(1 To 3, 1 To i)
  test(1, i) = Application.WorksheetFunction.VLookup(Data(i, 4), LookupRange, 3, 0)
  'Other stuff works fine
Next i

残念ながら、次のエラーが表示されます。

"Unable to get the VLookup property of the WorksheetFunction class"

すべての変数と範囲が監視モードで正常に見えるため、これは奇妙です。ルックアップもアルファベット順です...何が起こっているのかアイデアはありますか?

4

1 に答える 1