|
|
|
Вставка строк.
|
|||
|---|---|---|---|
|
#18+
Добрый день! Помоги пжлста со вставкой строк (копирование получилось): If Range("A" & i).Formula <> "Клиент" Then Workbooks("EIS_f_OrdersLog2").Sheets("A" & j).Rows(i - 12 & ":" & i - 4).Select Selection.Copy 'ВСТАВКА For i = 20 To 500 Step 29 Rows(i & ":" & i).Select Workbooks("EIS_f_OrdersLog2").Sheets("A" & j).Paste Next i End If Вставка думаю сделана не правильно, помогите пжлста сделать её так: пока не пусто со столбца "А8" вставлять то что скопировано в 20 строчку, потом то что вставилось (это 9 строчек) от них ещё отсчитываем 20 строчек и вставляем...то есть получается с шагом 29.... Если можно ещё, то после вставки сразу вставлять разрыв страницы. p.s. почему вставление именно строк, потому что там таблица, и вставка просто в ячейку не разорвет таблицу, а если строку вставлять- то ок. Спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.04.2009, 12:26:59 |
|
||
|
Вставка строк.
|
|||
|---|---|---|---|
|
#18+
макрорекордер запустите и ткните ctrl+"+", многое станет ясно ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.04.2009, 12:38:33 |
|
||
|
|

start [/forum/topic.php?fid=61&fpage=198&tid=2179586]: |
0ms |
get settings: |
8ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
60ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
41ms |
get tp. blocked users: |
1ms |
| others: | 236ms |
| total: | 377ms |

| 0 / 0 |
