VBA Excel，公式引用具有可变地址的另一个单元格

Question

我需要在一个单元格中插入一个简单的公式，该公式引用要在其中插入该公式的单元格下面的2个单元格。 因为我将在许多不同的地方插入此公式，所以“下面的2个单元”地址总是在变化。

因此，例如在AB200单元格中，我想插入一个公式=sum(AB202 * TextBox3.Value) ， TextBox3.Value是先前在宏中输入的文本框字段的值。

然后将重复该过程，但使用不同的地址和不同的Text变量。

我对循环没问题，所以我只需要VBA代码即可：

1. 根据LastRow.Offset（16，1）编写公式。 位置。
2. 在要输入公式的单元格下面编码2个单元格的地址，然后
3. 用text变量的乘法完成公式。

Answer 1

引用单元格下面一行包含公式的两行以下代码：

Activecell.FormulaR1C1="=R[2]C"

如果您不熟悉R1C1参考样式 ，请阅读该参考样式 。

对于问题3），添加如下内容：

Activecell.FormulaR1C1="=R[2]C*" & YourTextVariable

希望您的文本变量中实际上有一个数字，否则您将尝试将数字与文本相乘，这显然是行不通的。

至于你的问题1），我不知道你在这里是什么意思。 :)也许吗？：

cells(Activecell.specialcells(xllastcell).Offset(16, 1).row,Activecell.column).FormulaR1C1="=R[2]C*" & YourTextVariable

如果这不是您的意思，则可以谷歌“最后一个单元VBA”，或者如果您真的很懒，请在此处进行说明，以便我们回答。