Vlookup 宏出错

Question

下面是我的 ma​​cro 的 vlookup 代码，我不断收到 *.

我正在尝试使用vlookup，它将看到用另一个按钮选择的随机单词并拉出定义。

在 Excel 中添加常规 vlookup 代码：=VLOOKUP(B2,Sheet1!A2:B500,2,FALSE)

Sub Definition2()

Dim lookupvalue As Variant
Dim lookuprange As Variant

lookupvalue = Sheet2.Range("B2").Value
Set lookuprange = Sheet1.Range("A2:B500")

'- 2: execute vlookup functionwith variables above -'
vresult = Application.VLookup(lookupvalue, lookuprange, 2, False)

Range("J3").Value = vresult

End Sub

Answer 1

更新答案

不是用行指定范围，而是将 vlookuprange 设置为整列

第一答案

你不能“设置”一个声明为字符串的变量，因为它不是一个对象

Sub Definition2()

Dim lookupvalue As String
Dim lookuprange As Range
Dim lookupcolnum As Single

lookupvalue = Sheet2.Range("B3").Value
Set lookuprange = Sheet1.Range("A:B")

'- 2: execute vlookup functionwith variables above -'
vresult = Application.VLookup(lookupvalue, lookuprange, 2, False)

Range("J3").Value = vresult

End Sub