使用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