Вставка строки

[sea]

Заранее извиняюсь за глупый вопрос, просто в справке дольше будет искать...

Вопрос: как вставить строку ниже выделенной строки (ну или ниже активноя ячейки)?

[Aent]

М А К Р О Р Е К О Р Д Е Р
Р У Л И Т !

[sea]

Aent, не... так не пойдет, нужно именно в VBA

[Pavel55]

Aent, не... так не пойдет, нужно именно в VBA

А макрорекордер (меню Сервис-Макрос-Начать запись...) и записывает именно команды "в VBA". )


Вот смотрите, что запишет макрорекодер. Вставляем строку ниже 10 строки

Код: Выделить всё

Sub Макрос1()
' Макрос1 Макрос
' Макрос записан 25.02.2008

    Rows("10:10").Select
    Selection.Insert Shift:=xlDown
    Range("D10").Select
End Sub

и вот так его можно подкорректировать (удалить ненужные строки). Чтобы посмотреть записанных код нажмите Alt+F11

Код: Выделить всё

Sub Макрос2()
    Rows("10").Insert Shift:=xlDown
End Sub

А вот так можно вставить строку ниже активной ячейки

Код: Выделить всё

Sub Макрос3()
    ActiveCell.Insert Shift:=xlDown
End Sub

Вывод: записываете макрос с помощью макрорекордера (включаете запись, делаете руками, останавливаете запись и анализурете код), после записи удаляете ненужные строки и всё