Excel VBA插入公式以将单元格的值添加到另一个单元格

我试图为命令按钮创建一个VBA公式，但失败了。该公式将采用单元格S2的值，并将其与列G的最后一个单元格的值相加（该列不断被添加到单元格中，从而使行每次都不同）。我想将结果放在第I列的最后一个单元格中（同样，它总是被添加到）

---

我们将非常感谢您的帮助，非常感谢

这段代码可以做到这一点，您只需要让您的命令按钮运行此子命令：

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。

听起来您需要在列G中找到最后一个单元格引用，然后转到列I中最后一个单元格引用后面的1行，并作为列G中的单元格引用添加到S2

这应该起作用：

子addToI（）

---

End Sub

我可以从您的公开资料中看出，您尚未参加考试。我建议你这样做，并花时间阅读。然后回来问你的问题，让我们知道你到目前为止尝试了什么，问题到底出在哪里。

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"