Excel VBA录制数组宏运行失效，疑负号导致？求排查方案

首先明确说：R1C1引用里的负号完全合法，比如R1C[-2]就是指当前单元格往左数2列、第1行的单元格，这是Excel R1C1引用格式的标准写法，不会导致宏运行失败。

你遇到的问题，大概率是下面这几个原因：

1. 录制的公式被截断了 #

看你提供的代码末尾是('RMS M...，明显公式没录完整！Excel录制宏时，如果原数组公式太长，很容易出现字符串截断的情况，不完整的公式自然无法被Excel解析运行。

解决办法：

• 先回到Excel单元格，手动输入完整的数组公式，确认能正常返回结果；
• 把完整的公式复制出来，在VBA里把所有的双引号"替换成两个双引号""（这是VBA里转义字符串引号的规则）；
• 将转义后的完整公式替换到FormulaArray赋值语句里。

举个例子，假设你完整的数组公式是这样的：

=IFERROR(INDEX('RMS Maint'!$B$1:$B$3542,SMALL(IF(('RMS Maint'!$AA$2:$AA$3542=$B$1)*('RMS Maint'!$M$2:$M$3542=$D$2)*('RMS Maint'!$U$2:$U$3542="Late")*ROW('RMS Maint'!$A$2:$A$3542),ROW('RMS Maint'!$A$2:$A$3542)-ROW('RMS Maint'!$A$2)+1),ROWS($D$3:D3))),"")

转成VBA里的字符串就是：

Range("D3").FormulaArray = "=IFERROR(INDEX('RMS Maint'!R1C[-2]:R3542C[-2],SMALL(IF(('RMS Maint'!R2C27:R3542C27=R1C2)*('RMS Maint'!R2C13:R3542C13=R2C4)*('RMS Maint'!R2C21:R3542C21=""Late"")*ROW('RMS Maint'!R2C1:R3542C1),ROW('RMS Maint'!R2C1:R3542C1)-ROW('RMS Maint'!R2C1)+1),ROWS(R3C4:RC4))),"""")"

2. 旧Excel版本的公式长度限制 #

如果你的Excel是2013及更早版本，FormulaArray对公式字符长度有255个字符的限制，超过的话会报错。这时候可以换个写法绕过去：

' 先以普通公式赋值
Range("D3").Formula = "=IFERROR(INDEX('RMS Maint'!R1C[-2]:R3542C[-2],SMALL(IF(('RMS Maint'!R2C27:R3542C27=R1C2)*('RMS Maint'!R2C13:R3542C13=R2C4)*('RMS Maint'!R2C21:R3542C21=""Late"")*ROW('RMS Maint'!R2C1:R3542C1),ROW('RMS Maint'!R2C1:R3542C1)-ROW('RMS Maint'!R2C1)+1),ROWS(R3C4:RC4))),"""")"
' 再转成数组公式
Range("D3").FormulaArray = Range("D3").Formula

3. 额外检查点 #

• 确认'RMS Maint'工作表名称完全正确，包括空格、大小写（Excel不区分大小写，但最好和实际一致）；
• 检查公式里的条件逻辑，比如原录制代码里的ROW('RMS Maint'!R2C1:R3542C1)=0判断，行号从2开始不可能等于0，这部分可能是录制时的冗余代码，建议手动调整成正确的逻辑。

内容的提问来源于stack exchange，提问作者Oliver Wu