将公式插入单元格时如何增加行数？

Question

我有一个VBA代码的工作部分，它将数组公式插入到特定的单元格中。该公式是INDEX MATCH函数。

For Each row In rng.Rows
  For Each cell2 In row.Cells

    cell2.FormulaArray = "=INDEX(Sheet2!C:C, MATCH(1,(Sheet2!A:A = A5)*(Sheet2!B:B=""Total""),0))"

Next cell2
Next row

每次我将公式插入单元格时，我想增加A5的行号，接下来是A6。该公式正在For Each循环中插入。 在Excel中，这表示为5澳元。

VBA的等价物是什么？

Answer 1

好的，只是弄清楚了，所以无论如何我都会发布它。

Static value As Integer
    value = 5

For Each row In rng.Rows
  For Each cell2 In row.Cells

cell2.FormulaArray = "=INDEX(Sheet2!C:C, MATCH(1,(Sheet2!A:A = A " & value & ")*(Sheet2!B:B=""Total""),0))"

value = value + 1
  Next cell2
Next row