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)"