列表框未显示正确的 vlookup 结果

Question

我正在尝试执行这部分代码。

Do While ws2.Cells(i, "A").Value <> Empty
arr2(k, j) = ws2.Cells(i, "A").Value
arr2(k, j + 1) = Application.VLookup(ws2.Cells(i, "A").Value, ws.Range("B:K"), 2, False)
formula = ("VLOOKUP($A" & i & "&" & User.TextBox1.Value & ", CHOOSE({1,2}, 'DATA'!$B$4:$B$7669&'DATA'!$D$4:$D$7669,'DATA'!$E$4:$E$7669),2,0)")
q = CStr(Evaluate(formula))
arr2(k, j + 2) = q
k = k + 1
i = i + 1
Loop

我不知道为什么，但我有时会得到不同的结果，没有做任何改变。有时它显示 vlookup 值的错误，但有时它显示正确的数字。我该怎么做才能解决这个问题？

Answer 1

您没有指定应在哪个工作表上运行评估。

因此，$A" & i & ..正在查看活动工作表。

改变

q = CStr(Evaluate(formula))

自

q = CStr(ws2.Evaluate(formula))