将Excel数组转换为VBA

Question

我正在尝试将excel数组转换为VBA。任何帮助将不胜感激：

{=IFERROR((MATCH('Surgery'!D10&'Surgery'!D11,'NCCI'!A1:A263469&'NCCI'!B1:B263469,0)),"")}

手术工作表是用户输入代码列表的地方，而NCCI工作表是上述数组搜索以查找匹配的位置。它使用用户输入的两个代码在NCCI工作表的两列中搜索，以尝试找到两个代码在同一行中的位置并返回行号。

Answer 1

与其他一些数组公式不同，这个 与Application.Evaluate一起工作，它只需要“加倍”里面的双引号。

Dim v
v = Application.Evaluate("=IFERROR(MATCH(J2&K2,A1:A4&B1:B4,0), """")")
Debug.Print v