使用VBA将ArrayFormula设置为多个Excel单元格

Question

我有一个输出单个值的数组公式，并且我想给出一大堆单元格这个相同的数组公式。问题是，当我将数组公式分配给范围时，它以这样的方式解释公式，它们都将单个调用的输出共享给数组公式，而不是每个公式都输出一个单独的值。

要告诉你我的意思是，我使用下面的代码：

With MarginalData 
    .Range(.Cells(2, 1), .Cells(13, .UsedRange.Columns.Count)).FormulaArray = pullFormula 
End With 

我想，是一个结果，看起来像这样：

这是它看起来像当我在范围内的每个单元格中分别输入数组公式时。

但我所得到的是这样的：

数组公式中的第一个单元的输出重复中的所有列 - 他们都有着相同的输出。

如何以编程方式分配数组公式，就好像每个单元格都分开分配了一样？

---

的公式为：

{= INDEX（BatchResults，MATCH（TTID & CHAR（1）& ROW（） - 1，BatchResultsTTIDS & CHAR（1）& BatchResultsLayers，0）， （！A $ 1，$ BatchTTIDData 1：$ 1,0）MATCH）}

它必须被置于作为数组公式，因为它在单个列进行匹配，而是在两个级联的列。串联的列必须以数组的形式返回，因此公式必须作为数组公式输入。

---

到目前为止，最简单的解决方案，下面的接受的答案的变体，如下：

Const pullFormula = "=INDEX(BatchResults,MATCH(TTID&CHAR(1)&ROW()-1,BatchResultsTTIDS&CHAR(1)&BatchResultsLayers,0),MATCH(A$1,BatchTTIDData!$1:$1,0))" 
With wrksht 
    With .Range(.Cells(2, 1), .Cells(13, .UsedRange.Columns.Count)) 
     .Formula = pullFormula 
     .FormulaArray = .FormulaR1C1 
    End With 
End With 

Answer 1

或者拿起阵列公式为R1C1，将范围赋值为FormulaR1C1，然后将FormulaR1C1指定为Array Formula。这假定阵列公式在单元格A2

Sub test() 

With Sheet1 
    pullFormula = .Range("A2").FormulaR1C1 
    Set Rng = .Range(.Cells(2, 1), .Cells(13, .UsedRange.Columns.Count)) 

    Rng.Formula = pullFormula 
    Rng.FormulaArray = Rng.FormulaR1C1 

End With 
End Sub 

Answer 2

代替A $ 1，尽量

INDIRECT(ADDRESS(1,COLUMN())) 

Answer 3

尝试半自动地做它。为第一行设置公式，然后使用FillDown。

Private Sub soCopyFormula() 

    Dim MarginalData As Worksheet 
    Set MarginalData = ActiveWorkbook.Worksheets("Sheet2") 
    Dim oRange As Range 
    Dim i As Integer 

    With MarginalData 
     Set oRange = .Range(.Cells(2, 1), .Cells(13, .UsedRange.Columns.Count)) 
     ' for each column 
     For i = 0 To oRange.Columns.Count - 1 
      ' set first row 
      oRange(1, i).FormulaArray = pullFormula 
      ' copy down 
      oRange.Columns(i).FillDown 
     Next 
    End With 

End Sub