使用变量插入函数

问题描述 投票:0回答:1

请更正我的代码

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
excel vba
1个回答
0
投票

您根本不需要循环:

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通常比.Formula更容易在VBA中使用。请注意,要使用它,您实际上不需要在电子表格本身中使用R1C1样式的引用(尽管在开发公式时暂时启用该选项会有所帮助)。

© www.soinside.com 2019 - 2024. All rights reserved.