добавление значений ячейки в активную ячейку

Question

Я хотел бы создать макрос, который добавляет значение в ячейку сразу под (например, B2) активной ячейкой (например, B1), к значению самой активной ячейки, а затем очищает ячейку B2.Таким образом, B1 будет равен B1 + B2 (если B1 = 23 и B2 = 2, тогда B1 будет иметь значение 25. Как это сделать?

пример изображения

Answer 1

Вы можете использовать функцию Offset для поиска ячейки относительно активной ячейки:

ActiveCell.Value = ActiveCell.Value + ActiveCell.Offset(1).Value
ActiveCell.Offset(1).ClearContents

В этом случае мы смотрим на 1 строку ниже активной ячейки, но вы можете сделать следующееесли вам нужно выше

ActiveCell.Offset(-1)