在公式

Question

我有被確定我的單元格區域，選擇變量的部分使用變量，我想在最後添加一個公式引用變量：

Dim first As Integer 
Dim Last As Integer 


first = (ActiveCell.Row + 1) 
Selection.End(xlDown).Select 
Last = (ActiveCell.Row - 1) 
Range("J" & first & ":J" & Last).Select 

公式應說明就像是。

ActiveCells.formula(r1c1) = "=RC(first -1)" 

Answer 1

您可以直接通過一個公式是這樣的：

Range("J" & first & ":J" & Last).Formula = "=your_formula" 

這將在整個範圍內添加公式。
希望這會有所幫助。