首页 文章

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

提问于
浏览
0

我有一个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等价物?

1 回答

  • 0

    好吧只是想通了,所以无论如何我都会发布它 .

    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
    

相关问题