VBA数组公式向下填充异常：无法并行引用N列对应行

看起来你卡在了数组公式填充时的引用动态调整上——其实核心问题就是公式里的引用没有设为相对行引用，导致Fill Down后所有行都指向第一行的N列数据。下面给你两种靠谱的解决方法，附具体代码示例：

方法1：直接给目标区域批量设置数组公式 #

这种方法效率更高，不用逐行填充，直接给整个区域设置带相对引用的数组公式：

Sub ApplyArrayFormulaToRange()
    Dim currentCol As Integer
    Dim nCol As Integer
    Dim lastRow As Long
    Dim targetRange As Range
    
    ' 获取当前操作的列（这里假设是你选中单元格所在的列，可按需修改）
    currentCol = ActiveCell.Column
    ' 计算N列：当前列向左偏移11列
    nCol = currentCol - 11
    
    ' 找到N列最后一条非空记录的行号
    lastRow = Cells(Rows.Count, nCol).End(xlUp).Row
    
    ' 确定要填充公式的目标区域（假设第1行是表头，从第2行开始）
    Set targetRange = Range(Cells(2, currentCol), Cells(lastRow, currentCol))
    
    ' 设置数组公式：这里用R1C1引用样式，RC[-11]代表当前单元格向左11列的同一行
    ' 替换成你实际需要的数组公式，比如下面是一个匹配求和的示例
    targetRange.FormulaArray = "=SUM(IF(Sheet2!$C:$C=RC[-11], Sheet2!$D:$D, 0))"
End Sub

关键说明： #

• 用RC[-11]这种R1C1引用样式是关键，它会自动对应每一行的N列单元格，填充时不会固定到第一行。
• 如果习惯A1样式，要确保行号是相对的（比如用N2而不是$N$2），但R1C1在处理动态行列引用时更不容易出错。
• VBA里设置数组公式不需要手动加大括号{}，程序会自动处理。

方法2：先设置首行公式，再用Fill Down填充 #

如果你更习惯先调试好单个单元格的公式，再向下填充，可以用这种方式：

Sub FillArrayFormulaDown()
    Dim currentCol As Integer
    Dim nCol As Integer
    Dim lastRow As Long
    Dim firstCell As Range
    
    currentCol = ActiveCell.Column
    nCol = currentCol - 11
    lastRow = Cells(Rows.Count, nCol).End(xlUp).Row
    
    ' 定位到目标列的第一个数据行
    Set firstCell = Cells(2, currentCol)
    
    ' 给首行设置带相对引用的数组公式
    firstCell.FormulaArray = "=SUM(IF(Sheet2!$C:$C=RC[-11], Sheet2!$D:$D, 0))"
    
    ' 向下填充到N列最后一行
    firstCell.FillDown Destination:=Range(firstCell, Cells(lastRow, currentCol))
End Sub

为什么之前的填充无效？ #

你之前的问题大概率是公式里用了绝对行引用（比如$N$2），导致所有填充后的行都锁定到N列的第一行数据。改成相对引用（RC[-11]或N2）后，Fill Down时每一行都会自动调整引用到对应的N列行。

额外注意事项 #

• 确认N列的最后一行计算准确：如果N列中间有空行，End(xlUp)会停在第一个空行上方，这时候你可能需要用其他方法（比如遍历行）来找到真正的最后一行。
• 复杂数组公式的调试：先在Excel单元格里手动写出正确的数组公式（按Ctrl+Shift+Enter确认），再转换成VBA语法——注意公式里的双引号要写成两个双引号""来转义。

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