评估和VLOOKUP VBA

问题描述

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

我已经将EVALUATE与其他数组和公式一起使用，它可以正常工作，但是我在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

谢谢！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）