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

Question

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

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

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

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

1. 根据LastRow.Offset（16,1）编写公式。位置。
2. 编码将输入公式的单元格下方的2个单元格的地址
3. 通过文本变量的乘法来完成公式。

Answer 1

引用包含公式的单元格下方2行的代码：

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

Read about R1C1 reference style如果您对此不熟悉。

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

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

希望你的文本变量实际上有一个数字，否则你会试图将一个数字乘以一个文本，这显然是行不通的。

关于你的问题1），我不知道你在这里的意思。 :) 也许这个？：

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

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