Establezca ArrayFormula en muchas celdas de Excel usando VBA

Question

Tengo una fórmula de matriz que genera un solo valor, y quiero darle a un montón de celdas esta misma fórmula de matriz. El problema es que cuando asigno la fórmula de matriz al rango, interpreta la fórmula de tal manera que todos comparten la salida de una sola llamada a la fórmula de matriz, en lugar de que cada uno de ellos genere un valor por separado.

para mostrar lo que quiero decir, estoy usando el siguiente código:

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

Lo que quiero, es un resultado que se ve así:

Eso es lo que se parece cuando ingreso la fórmula de matriz por separado en cada celda del rango.

Pero lo que me pasa es la siguiente:

La salida de la fórmula de matriz en la primera celda se repite en todas las columnas - todos ellos comparten la misma salida.

¿Cómo puedo asignar programáticamente la fórmula de matriz como si cada celda la tuviera asignada por separado?

---

La fórmula es:

{= índice (BatchResults, Partido (TTID & CHAR (1) & ROW() - 1, BatchResultsTTIDS & CHAR (1) & BatchResultsLayers, 0), (! a $ 1, BatchTTIDData $ 1: $ 1,0) pARTIDO)}

será metido en como una fórmula de matriz, ya que realiza un fósforo no en una sola columna, pero en dos columnas concatenadas. La concatenación de las columnas se debe devolver como una matriz, por lo tanto, la fórmula se debe ingresar como una fórmula de matriz.

---

La solución más simple hasta el momento, una variante de la respuesta aceptada a continuación, es el siguiente:

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

o recoger la matriz Fórmula como R1C1, asigne al rango como FormulaR1C1, luego asigne el FormulaR1C1 como fórmula de matriz. Esto supone que la fórmula del arreglo está en la celda 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

en lugar de un $ 1, tratar

INDIRECT(ADDRESS(1,COLUMN())) 

Answer 3

Trate de hacerlo de forma semiautomática. Establezca la fórmula para la primera fila, luego use 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