Формула вставки VBA с динамической ссылкой на ячейку

Question

Я создаю промежуточные итоги и хотел бы иметь в пустых ячейках (без суммы) ссылочной строки ссылки на ячейку выше. Формула будет ссылаться на ячейку выше. Например: если строка 4 является субтотальная линии и ячейки А4 пустая ячейка, чем я была формула A4 для чтения «= A3»

ActiveCell.Formula = "=" & Cells(-1, "A").Address(False, False) 

Я выше кода, написанного, но я получаю сообщение об ошибке времени выполнения 1004 Ошибка определения приложения или определения объекта.

Я также пробовал код ниже, но ошибка.

ActiveCell.Formula = "=" & Cells(-1, A).Address(False, False) 

Answer 1

Используйте смещение для ссылки на ячейку относительно другой.

ActiveCell.Offset(-1, 0) 

, если activecell - A4, тогда смещение относится к A3. используйте .Address, чтобы получить адрес, который вам нужен в формуле. например:

ActiveCell.Formula = "=" & ActiveCell.Offset(-1, 0).Address