使用VBA将公式添加到范围

Question

我想在一系列细胞中添加一个公式。它应该将相邻单元格乘以100.所以我尝试了以下内容：

Range(Cells(row, col + 17), Cells(row + num_positions, col + 17)).Select
Selection.Formula = "=100*" & Cells(row, col + 12)

不幸的是，这不是正确的语法。如何应用这种行为？

编辑：

 For i = 0 To num_n
    v = Cells(row + i, col + 12)
    Cells(row + i, col+ 17).Formula = "=100*" & v
 Next i

如果我用常量表达式替换v，则可以使用

Answer 1

使用FormulaR1C1。这更容易。如果可以的话，避免循环，它们很慢。

With Range(Cells(row, col + 17), Cells(row + num_positions, col + 17))
   .FormulaR1C1 = "=100*RC[-5]"  '100 times the cell on the same row, 5 cols left
End with