VBA Excel，公式引用具有可變地址的另一個單元格的公式

Question

我需要在一個單元格中插入一個簡單的公式，該公式引用公式插入到的單元格下方的2個單元格。因爲我會在很多不同的地方插入這個公式，所以「2細胞以下」的地址總是在變化。

因此，在單元格AB200中，例如，我想插入一個公式=sum(AB202 * TextBox3.Value),TextBox3.Value，它是之前在宏中輸入的文本框字段的值。

然後程序將重複，但具有不同的地址和不同的文本變量。

我與環行，所以我只需要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」，或者如果你真懶，這裏澄清，以便我們可以回答。