Копирование диапазона с форматированием и формулами

Копирование диапазона с форматированием и формулами, добавить после последней заполненной строки

Пользователь

Сообщений: 4 Регистрация: 18.01.2019

18.10.2019 14:50:25

Добрый день, уважаемые форумчане сломал голову над казалось бы простым макросом, хотелось бы добавлять диапазон ячеек с формулами и форматом по предыдущему диапазону, добавлять после последней заполненной строчки. Подобие макроса во вложении, сейчас работает но на фиксированные ячейки. Помогите пожалуйста

Прикрепленные файлы

Пример.xlsm (18.26 КБ)

skais675

Пользователь

Сообщений: 2211 Регистрация: 03.06.2014

18.10.2019 15:04:06

Код
Sub Макрос2() lr = Cells(Rows.Count, 1).End(xlUp).Row + 1 Range("A12:G18").Copy Range("A" & lr) Range("C" & lr).Resize(6, 4).ClearContents End Sub

Изменено: skais675 - 18.10.2019 15:06:11

Мой канал

evgen032

Пользователь

Сообщений: 33 Регистрация: 22.11.2016

18.10.2019 15:05:38

Код
Sub copy() Lr = Cells(Rows.Count, 1).End(xlUp).Row Range("A12:G18").Copy Cells(Lr + 1, 1) Application.CutCopyMode = False End Sub

Изменено: evgen032 - 18.10.2019 15:06:20

Юрий М Модератор Сообщений: 61035 Регистрация: 14.09.2012 Контакты см. в профиле	#4 18.10.2019 15:24:33 В данном случае строка Application.CutCopyMode = False лишняя.