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