Макрос для вставки новой строки - Microsoft Office Excel

Maiku · 15.03.2013, 16:08

Необходим макрос для вставки новой строки. Более подробно задача описана во вложении.

IgorGO · 15.03.2013, 16:52

Код:

Sub InsCopyStrUnderActiveCell()
  ActiveCell.Offset(1, 0).EntireRow.Insert Shift:=xlDown
End Sub

Maiku · 15.03.2013, 17:29

Немного не то. Очень извиняюсь, что неправильно объединил ячейки в столбцах А и Б. Перед объединением ячейки были заполнены однотипными значениями для корректной работы автофильтра. Пример поправил.

IgorGO · 15.03.2013, 17:56

однако...

Код:

Sub InsCopyStrUnderActiveCell()
  ActiveCell.Offset(1, 0).EntireRow.Insert Shift:=xlDown
  Cells(ActiveCell.Row, 1).Resize(1, 2).Copy Cells(ActiveCell.Row + 1, 1)
End Sub

Maiku · 15.03.2013, 18:04

Run-time error 1004. Изменить часть объединенной ячейки невозможно.

IgorGO · 15.03.2013, 18:19

Цитата:

Изменить часть объединенной ячейки невозможно

с этим не поспоришь.
я не знаю что у Вас в таблице, я теперь уже не знаю как она выглядит, и не знаю что должно происходить при вставке новой строки.
у Вас есть болванка, тщательно обрабатывайте ее напильником, пока не станет на место.
удачи!

Maiku · 15.03.2013, 18:28

Спасибо за помощь

15.03.2013, 16:52	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Код: `Sub InsCopyStrUnderActiveCell() ActiveCell.Offset(1, 0).EntireRow.Insert Shift:=xlDown End Sub` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете Последний раз редактировалось IgorGO; 15.03.2013 в 16:54.

15.03.2013, 17:56	#4
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	однако... Код: `Sub InsCopyStrUnderActiveCell() ActiveCell.Offset(1, 0).EntireRow.Insert Shift:=xlDown Cells(ActiveCell.Row, 1).Resize(1, 2).Copy Cells(ActiveCell.Row + 1, 1) End Sub` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
PasteLink - простой макрос на VBA для Excel для вставки в ячейку гипперссылки на файл в буфере обмена.	wyfinger	Microsoft Office Excel	4	22.05.2013 14:10
макрос для вставки в другой файл данные	Nick31	Помощь студентам	1	15.05.2012 16:16
Макрос вставки пустой строки	redwert	Microsoft Office Excel	5	10.11.2011 14:24
Макрос для вставки картинки из эксель	КТатьяна	Microsoft Office Excel	0	02.05.2011 12:46
Макрос вставки файлов в листы-Необходимо изменить ниже приведённый макрос	as-is	Microsoft Office Excel	4	25.02.2010 07:51

15.03.2013, 18:04	#5
Maiku Новичок Джуниор Регистрация: 15.03.2013 Сообщений: 4	Run-time error 1004. Изменить часть объединенной ячейки невозможно.

15.03.2013, 18:28	#7
Maiku Новичок Джуниор Регистрация: 15.03.2013 Сообщений: 4	Спасибо за помощь