VBA вставить формулу, чтобы добавить значение ячейки в другую

Question

Я пытаюсь и не могу создать формулу VBA для командной кнопки, которая возьмет значение ячейки S2 и добавит ее к значению последней ячейки столбца G (этот столбец постоянно добавляется к нему, что делает строку другойкаждый раз).Я хочу поместить результат в последнюю ячейку столбца I (опять же, он всегда добавляется).

Помощь будет с благодарностью получена, большое спасибо

Answer 1

Похоже, вам нужно найти последнюю ссылку на ячейку в столбце G, а затем перейти на 1 строку после последней ссылки на ячейку в столбце I и в качестве ссылки на ячейку в столбце G на S2.

Это должноработа:

Sub 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"

End Sub

Answer 2

Этот код сделает это, вам просто нужно, чтобы ваша командная кнопка запускала эту подпрограмму:

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.