Arrays 评估和VLOOKUP VBA

我试图在VBA中结合EVALUATE和VLOOKUP以避免在整个范围内循环，问题是它只返回第一行的值，而不是VLOOKUP的所有结果

我使用过其他数组和公式进行求值，它工作得很好，但我正在努力使用VLOOKUP。你能帮我理解我做错了什么吗

我的代码如下：

With sh

    Set rng_am = .Range("J2:J10000")
    Set compl_rn = sh_2.Range("A2:Z500")

    .Range("A2:A10000").Value = .Evaluate("IF(ISNUMBER(ROW(" & rng_am.Address & ")),VLOOKUP(" & rng_am.Address & "," & sh_2.Name & "!"  & compl_rn.Address & ",2,0))")

End with

---

谢谢

我认为您最好尝试.Range.Formula属性