Excel VBA宏 - 使用公式中的单元格值

Question

我有一个重复的任务，我试图用宏来解决。

我有一个带数字的单元格 - 假设单元格N4保持5782.3。

现在我想将B4单元格内容更改为=IF($K4<>0,5728.3,0)

我该怎么做？ 我尝试过以下方法：

 Dim a As Double
 a = ActiveCell.Value
 ActiveCell.FormulaR1C1 = "=IF(RC4<>0,a,0)"
 ActiveCell.Offset(1, 0).Range("A1").Select

然后我进入牢房IF($K4<>0,a,0)我该怎么写呢？

Answer 1

我认为您不需要使用VBA。

如果你的变量 a 是 N4 中的数字，你可以使用单元格公式：

=IF($K4<>0,$N4,0)

您的VBA未按预期工作的原因是因为 a 在引号内，并被视为字符“a”。使用：

 ActiveCell.FormulaR1C1 = "=IF(RC4<>0," & a & ",0)"