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

@Stren · Регистрация: 03.12.2013

Author24 — интернет-сервис помощи студентам

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

Прилагаю файл.
Например, в прилагаемом файле при текущей ячейке Е5 нажимаем Enter Ниже должна добавиться строка, при этом ячейка С6 должна войти в объединенную ячейку С4:С6.

А если потом нажать Enter в объединенной ячейке С4:С6, то должно добавиться уже 3 строки, с объединенной ячейкой С7:С9 (в идеале, хотелось бы, чтобы из объединенной ячейки добавлялось не более 2-х строк).

Спасибо

@Stren · 04.12.2013, 11:10 **[ТС]**

Пожалуйста, помогите с макросом!

@KoGG · 04.12.2013, 12:18

Макрос срабатывает не на Enter, а на изменение значения в последней строке в столбцах С или E.

Добрый совет: не используйте объединенные ячейки, для автоматизации неудобно.

@Stren · 04.12.2013, 12:45 **[ТС]**

Хм... Сложный макрос получился

Только к предыдущим ячейкам уже не дает вернуться (не вставляет строки по enter)
И не удаляет нижние строки

@KoGG · 04.12.2013, 15:08

В произвольной строке. Запускается когда активная ячейка в столбцах С или E по сочетанию клавиш Ctrl + q.
Удаление и редактирование произвольное.

@Stren · 04.12.2013, 15:45 **[ТС]**

я где-то нашел совсем простое:

Visual Basic

Sub Enter2_Sub()
 Rows(ActiveCell.Row).Insert Shift:=xlUp
    If ActiveCell.Row <> 1 Then Rows(ActiveCell.Row - 1).Copy (ActiveSheet.Rows(ActiveCell.Row))
 
 End Sub

работающий по Enter

Только вот он вставляет строки сверху, а надо, чтобы снизу активной ячейки.

И если войти в объединенную ячейку, то он опять же вставляет одиночную строку сверху.

Т.е. можно ли доработать этот простой скрипт, чтобы:
1. строка вставлялась ниже активной ячейки
2. чтобы копировались и вставлялись снизу строки, принадлежащие объединенной ячейке
?

@KoGG · 04.12.2013, 16:10

Если Вы скопируете этот макрос во вновь созданную книгу, то заметите, что по Enter он не работает.
После доработки должен получиться мой макрос или близкий к нему, то есть перед вставкой строки надо разбивать объединенные ячейки ниже , а потом заново объединять и использовать сложную адресацию и т.д. и т.п.

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

Добрый совет: не используйте объединенные ячейки, для автоматизации неудобно.

@Stren · 05.12.2013, 12:09 **[ТС]**

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

В произвольной строке. Запускается когда активная ячейка в столбцах С или E по сочетанию клавиш Ctrl + q.
Удаление и редактирование произвольное.

Удаление теперь работает

А вот если наплодить разделов (объединенных ячеек С), то вернуться и вставить строку в Е не получается - нарушается объединение ячеек

Понятно, что объединенные ячейки зло, но без них никак.

@Stren 0 / 0 / 0 Регистрация: 03.12.2013 Сообщений: 5
	04.12.2013, 11:10 [ТС]	2
	Пожалуйста, помогите с макросом! 0

@Stren 0 / 0 / 0 Регистрация: 03.12.2013 Сообщений: 5
	04.12.2013, 12:45 [ТС]	4
	Хм... Сложный макрос получился Только к предыдущим ячейкам уже не дает вернуться (не вставляет строки по enter) И не удаляет нижние строки 0

@KoGG 5606 / 1592 / 412 Регистрация: 23.12.2010 Сообщений: 2,382 Записей в блоге: 1
	04.12.2013, 16:10	7
	Если Вы скопируете этот макрос во вновь созданную книгу, то заметите, что по Enter он не работает. После доработки должен получиться мой макрос или близкий к нему, то есть перед вставкой строки надо разбивать объединенные ячейки ниже , а потом заново объединять и использовать сложную адресацию и т.д. и т.п. Сообщение от KoGG Добрый совет: не используйте объединенные ячейки, для автоматизации неудобно. 0

@Stren 0 / 0 / 0 Регистрация: 03.12.2013 Сообщений: 5
	05.12.2013, 12:09 [ТС]	8
	Сообщение от KoGG В произвольной строке. Запускается когда активная ячейка в столбцах С или E по сочетанию клавиш Ctrl + q. Удаление и редактирование произвольное. Удаление теперь работает А вот если наплодить разделов (объединенных ячеек С), то вернуться и вставить строку в Е не получается - нарушается объединение ячеек Понятно, что объединенные ячейки зло, но без них никак. 0