variables - excel vba - 使用变量插入公式

Question

嗨，我想通过确定每个值的变量来将公式插入到单元格中。

例如。

=G5/D5

所以在单元格中

Sheets("Sheet1").cells(LastRow + 2, 2).value = "=columnletter1 + (lastrow + 2)/columnletter2 + (lastrow + 2)

通过确定列名是否为 X 且行是否为 LastRow + 2，我发现列字母为 G。如何编写以便将“=G5/D5”返回到单元格中？

Answer 1

不确定我是否完全理解您的要求，我认为您的意思是：

columnletter1是字符串，=G
columnletter2是字符串，=D
lastrow是长字符串，=3

要设置公式，请构造一个字符串并写入.Formula属性

    Sheets("Sheet1").cells(LastRow + 2, 2).Formula = _
    "=" & columnletter1 & lastrow + 2 & "/" & columnletter2 & lastrow + 2

Answer 2

对于下面的矩阵计算，包含变量公式的给定代码可能会有所帮助。

For ROW= 0 To K - 1
    For COL= 0 To J - 1
        Range("G5").Offset(ROW, COL).Select
        ActiveCell.FormulaR1C1 = _
        "=SUMIFS(R2C5:R500C5,R2C4:R500C4,RC[" & -COL- 1 & "],R2C2:R500C2,R[" & -ROW- 3 & "]C,R2C3:R500C3,R[" & -ROW- 2 & "]C)"

    Next
    COL= COL + 1

Next
ROW= ROW + 1