Как вставить одну строку между двумя другими? :)

[Deja-vu]

Здравствуйте!

Есть маленькая проблемка.
Есть лист в Excel с заполненными ячейками A1:A100
Нужно вставить между строками 40 и 41 (для примера) новую строку и в этой новой строке чтобы был написан какой-то текст... То есть, в результате, строка 41 превратится в 42, а 42 в 43 и тд... а новая строка примет номер 41.
Можно ли это как-то сделать?

И еще вопросик, если не трудно.
А если надо вставить сразу 5 новых строк с текстом?
Чтобы на каждой строке был свой текст...

Можете хотя бы наводку дать?
(конечно, написать сам пример было бы круто)

[Димитрий]

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

'Вставить пять строк:
Rows("41:45").Insert Shift:=xlDown
'Вставить текст в ячейки:
Range("A41")="X"
Range("A42")="Y"
Range("A43")="Z"
Range("A44")="A"
Range("A45")="B"

Для таких примеров хорошо пользоваться макрорекордером.
Сам пользуюсь и другим часто советую.

[Brudda]

Привет.
Или так:

Cells(1, 1).EntireRow.Insert

При необходимости можно вставить в цикл.

Brudda

[Deja-vu]

Ух ты! Я даже не ожидал, что так быстро кто-то ответит! Спасибо большое! Теперь смогу сделать простенькую прогу, чтобы автоматически искать и заменять текст в программе.
Мужики, если вам что-то надо очень редкое в инете найти или допустим пикчер какой-то или мануал, обращайтесь ко мне в приват.
Еще раз спасибо! Оба варианта хороши!