макрос на вставку строк

[hakervanya]

нужен макрос на вставку строк, которые будут повторять свойства (формулы, формат) вышестоящих строк

[EducatedFool]

Включите запись макросов, выполните копирование и очистку строки от значений (кнопка Delete), остановите запись макросов, - и вот у вас уже есть то, что вам нужно.

[hakervanya]

Сообщение от EducatedFool

Включите запись макросов, выполните копирование и очистку строки от значений (кнопка Delete), остановите запись макросов, - и вот у вас уже есть то, что вам нужно.

Ваш вариант зацикливается только на той строке, которую он вставляет (в моем случае он всегда вставляет на 14 строку, таблица не увеличивается)

[EducatedFool]

если сами не можете доработать макрос - почитайте правила раздела, там сказано про необходимость прикрепления примера файла Excel

На примере своего файла объясните, что надо, - тогда вам помогут

[hakervanya]

Сообщение от EducatedFool

если сами не можете доработать макрос - почитайте правила раздела, там сказано про необходимость прикрепления примера файла Excel

На примере своего файла объясните, что надо, - тогда вам помогут

необходимо вставлять строку в конце таблице в независимости от ее размера

[ShAM66]

Может, так подойдет?

Sub WW()
Dim LastRow As Long
LastRow = Cells(Rows.Count, 7).End(xlUp).Row
Cells(LastRow, 1).EntireRow.Copy Cells(LastRow + 1, 1)
End Sub

[hakervanya]

Сообщение от ShAM66

Может, так подойдет?

не работает((

[hakervanya]

скопировал и вставил только первую строку, больше ничего не делает

[ShAM66]

А что еще должен делать и что не работает? Можно конкретнее?

[hakervanya]

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