如何将excel公式转换为在VBA中工作？

Question

我找到了这个了不起的小贴士：

http://vlookupweek.wordpress.com/2012/03/27/richard-schollar-vlookup-left

然而，公式

=VLOOKUP(F2,CHOOSE({1,2},$C$2:$C$7,$A$2:$A$7),2,False)

如果在单元格中输入

，但在VBA中，它会产生语法错误：

Set Rng = Range(Application.WorksheetFunction.Choose({1, 2}, colMax.Address, colId.Address))

因为这可行，但它没有做我想要的事情：

Set Rng = Range(Application.WorksheetFunction.Choose(1, colMax.Address, colId.Address))

似乎是问题的{...}。谷歌搜索的问题是我不知道调用了什么{...}（数组，序列列表...... ???）。

所以问题是如何在VBA中使用这个技巧。

Answer 1

只需使用Evaluate函数评估VBA中的公式。不需要n＃34;翻译＆＃34;它到VBA：

查看此链接 http://msdn.microsoft.com/en-us/library/office/ff193019(v=office.15).aspx