使用变量插入函数

Question

请更正我的代码

Dim Frm As Long

For Frm = 2 To Range("K100000").End(xlUp).Row - 1
    Range("L" & Frm).Formula = "=Product(J"&Frm,K"&Frm)"
Next Frm

Answer 1

您根本不需要循环：

Sub test()
    Dim R As Range
    Set R = Range("L2:L" & (Range("K100000").End(xlUp).Row - 1))
    R.FormulaR1C1 = "=PRODUCT(RC[-2],RC[-1])"
End Sub

在功能上等同于您的代码（根据Tim Williams的评论修正了代码之后）。

.FormulaR1C1在VBA中通常比.Formula更易于使用。请注意，要使用它，您实际上不需要在电子表格本身中使用R1C1样式的引用（尽管在开发公式时临时启用该选项会有所帮助）。