|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.06.2013, 14:11 | #1 |
Регистрация: 02.05.2012
Сообщений: 5
|
Макрос на вставку строк
Привет всем, подскажите начинающему, по макросу на вставку строк. почему то диапазон слетает, бьюсь 2-й день, в чем тут ошибка, нужно вставить строку через каждые 11 строк????
Sub Макрос12() ' ' Макрос12 Макрос ' ' Сочетание клавиш: Ctrl+ф ' ActiveCell.Offset(10, 0).Rows("1:1").EntireRow.Select Selection.Copy ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown ActiveCell.Offset(11, 0).Rows("1:1").EntireRow.Select Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown ActiveCell.Offset(11, 0).Rows("1:1").EntireRow.Select Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown ActiveCell.Offset(11, 0).Rows("1:1").EntireRow.Select Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown ActiveCell.Offset(11, 0).Rows("1:1").EntireRow.Select Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown ActiveCell.Offset(11, 0).Rows("1:1").EntireRow.Select Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown ActiveCell.Offset(11, 0).Rows("1:1").EntireRow.Select Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown ActiveCell.Offset(11, 0).Rows("1:1").EntireRow.Select Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown ActiveCell.Offset(11, 0).Rows("1:1").EntireRow.Select Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(1, 0).Range("A1").Select Selection.Insert Shift:=xlDown ActiveCell.Offset(11, 0).Rows("1:1").EntireRow.Select Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown ActiveCell.Offset(11, 0).Rows("1:1").EntireRow.Select Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown ActiveCell.Offset(11, 0).Rows("1:1").EntireRow.Select Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown ActiveCell.Offset(11, 0).Rows("1:1").EntireRow.Select Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown ActiveCell.Offset(11, 0).Rows("1:1").EntireRow.Select Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown ActiveCell.Offset(11, 0).Rows("1:1").EntireRow.Select Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown ActiveCell.Offset(11, 0).Rows("1:1").EntireRow.Select Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False ActiveCell.Offset(-20, 2).Range("A1").Select ActiveCell.Offset(-26, 0).Range("A1").Select ActiveCell.Offset(-25, 0).Range("A1").Select ActiveCell.Offset(-26, 0).Range("A1").Select ActiveCell.Offset(-25, 0).Range("A1").Select ActiveCell.Offset(-25, 0).Range("A1").Select ActiveCell.Offset(-26, 0).Range("A1").Select ActiveCell.Offset(-23, 0).Range("A1").Select End Sub Последний раз редактировалось dirih; 25.06.2013 в 14:14. |
25.06.2013, 14:13 | #2 |
Регистрация: 02.05.2012
Сообщений: 5
|
может кто подскажет ошибку или же метод попроще )))
|
25.06.2013, 14:24 | #3 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Ужас, аж в глазах рябит
Идите циклом снизу вверх - если я правильно понял...
webmoney: E265281470651 Z422237915069 R418926282008
|
25.06.2013, 14:26 | #4 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
25.06.2013, 14:57 | #5 |
Регистрация: 02.05.2012
Сообщений: 5
|
что то, я ничё не понял, может поможете с макросами?
|
25.06.2013, 15:45 | #6 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
да, не угадал два раза, что последняя строка 198 и что на самом деле вставлять необходимо через 12 строк, а не через 11.
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
Последний раз редактировалось IgorGO; 25.06.2013 в 15:48. |
25.06.2013, 16:16 | #7 |
Регистрация: 02.05.2012
Сообщений: 5
|
ты был прав, это я после по 1-й строке добавил и скинул = получилось 12
СПС, здорово! как всё просто, но вставляются лишь пустые строки... и опять не ровно )) Последний раз редактировалось dirih; 25.06.2013 в 16:22. |
28.06.2013, 16:19 | #8 |
Регистрация: 02.05.2012
Сообщений: 5
|
вот исправил
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Макрос переноса строк | Extril | Microsoft Office Excel | 30 | 25.01.2015 22:15 |
Как сделать вставку копированного диапазона в ячейки не пустых строк | Xstroy | Microsoft Office Excel | 0 | 24.06.2013 23:45 |
макрос на вставку строк | hakervanya | Microsoft Office Excel | 11 | 25.09.2012 19:30 |
Макрос на вставку строки в MS Word 10 | Valder | Microsoft Office Word | 2 | 06.07.2012 11:02 |
Макрос на сравнение и подсчет в первом столбце строк, и сумирование значений этих строк в другом столбце | Shpr0T | Microsoft Office Excel | 8 | 30.08.2010 17:52 |