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

提问于 2024-04-28T22:31:30+08:00

浏览次

0

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

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

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

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

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

1 回答

0
用于引用包含公式的单元格下方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”，或者如果你真的很懒，请在这里澄清它，以便我们可以回答 .
回复于 2024-04-28T22:31:30+08:00

相关问题