使用数组公式将具有多个条件的索引匹配转换为VBA

Question

我有一张要尝试根据多个条件检索数据的表。 我为此使用索引匹配。 如果我在excel中手动粘贴公式，则在以下两种情况下都可以使用。

首先，我使用Index Match公式中原始表中的完整列范围输入Array公式

    Selection.FormulaArray = _
    "=IF(ISNA((INDEX(Data!C2:C8,MATCH(1,(Data!C2=RC2)*(Data!C3=RC3)*(Data!C4=R3C)*(Data!C5=R4C),0),4))),""F"",(INDEX(Data!C2:C8,MATCH(1,(Data!C2=RC2)*(Data!C3=RC3)*(Data!C4=R3C)*(Data!C5=R4C),0),4)=R4C))"

这可以工作，但是对于大数据来说运行非常慢。 因此，我修改了表中特定范围（例如30000行）的公式。 当我在Excel中使用行和列引用手动输入它时，此方法有效，这也大大减少了处理时间。 但是，当我尝试通过R1C1样式在VBA中的代码中使用它时，会引发错误。 下面是范围为40000行的代码示例

    Selection.FormulaArray = _
    "=IF(ISNA((INDEX(Data!R2C2:R40000C8,MATCH(1,(Data!R2C2:R40000C2=R[-1]C2)*(Data!R2C3:R40000C3=R[-1]C3)*(Data!R2C4:R40000C4=R3C)*(Data!R2C5:R40000C5=R4C),0),4))),""F"",(INDEX(Data!R2C2:R40000C8,MATCH(1,(Data!R2C2:R40000C2=R[-1]C2)*(Data!R2C3:R40000C3=R[-1]C3)*(Data!R2C4:R40000C4=R3C)*(Data!R2C5:R40000C5=R4C),0),4)=R4C))"

显示的错误是

“运行时错误1004。无法设置范围类别的公式数组属性。”

我感觉到错误是由于应如何输入语法的风格所致。 预先感谢您的支持

Answer 1

最简单的方法如下：

1. 在Excel中编写公式；
2. 转到“开发人员”标签，然后点击“记录宏”；
3. 在执行第2点之前，请点击以下小方块：

4. 然后按几次带有公式的单元格，它将被“翻译”；