VBA插入公式以將單元格的值添加到另一個

Question

我嘗試並未能為命令按鈕創建一個 VBA 公式，該公式將獲取單元格 S2 的值並將其與 G 列的最后一個單元格的值相加（此列不斷添加到其中，從而使行每次都不同） . 我想將結果放在 I 列的最后一個單元格中（同樣它總是被添加到）。

幫助將不勝感激，非常感謝

Answer 1

這段代碼可以做到這一點，你只需要讓你的命令按鈕運行這個子：

Sub pasteLast()

Dim lrowG, lrowi As Integer

lrowG = Cells(Rows.Count, 7).End(xlUp).Row
lrowi = Cells(Rows.Count, 9).End(xlUp).Row

Cells(lrowi, 9).offset(1,0) = Range("s2") + Cells(lrowG, 7)

End Sub

請小心，因為每次單擊按鈕時，它都會向 I 列添加一個值，無論它是否唯一。 這會更好地處理

Sub Worksheet_Change

事件，只要 S2 發生更改，它就會將其值添加到 I 列。

Answer 2

聽起來您需要找到 G 列中的最后一個單元格引用，然后轉到 I 列中最后一個單元格引用之后的 1 行，並將 G 列中的單元格引用作為到 S2 的單元格引用。

這應該有效：

子 addToI()

Dim gTarget As String

Range("G1").Select
Selection.End(xlDown).Select
gTarget = Selection.Address(ReferenceStyle:=xlR1C1)

Range("I1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select

ActiveCell.FormulaR1C1 = "=" & gTarget & "+R2C19"

結束子