将一行单元格更改为某个公式

Question

我有这一行数据和实际数字。

对于一个具体的理由......我需要更新细胞的同一行执行以下操作：

=(number from cell same)*$J$5

我怎样才能做到这一点？

Answer 1

Range("$J$5").Copy 
Range("B9:Z9").PasteSpecial Operation:=xlMultiply 

，或者，如果你需要依赖于J5一个公式：

For Each c In Range("A10:Z10") 
    c.Formula = "=$J$5*" & c.Value 
Next c 

Answer 2

为了避免循环引用的问题，只需使用源行的副本。