2012-08-27 188 views
1

您好我想通过确定每个值的变量插入公式到单元格中。excel vba - 使用变量插入公式

例如,

=G5/D5 

所以在电池

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

我找到columnletter为G通过确定列名称为X,行LASTROW + 2 我怎么写,让我得到“= G5/D5“回到了牢房?

回答

1

不知道如果我理解你的要求完全是,我想你的意思是:

columnletter1是一个字符串,= G
columnletter2是一个字符串,= D
lastrow是一个长期的,= 3

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

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

对于下面的矩阵计算,给定的代码(包括带有变量的公式)可能会有所帮助。

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