excel vba - 使用变量插入公式

Question

您好，我想通过确定每个值的变量将公式插入单元格。

例如。

=G5/D5

所以在细胞中

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

通过确定列名是否为X并且行是LastRow + 2，我发现columnletter是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