поиск строки с заданым словом и вставка строки ниже

[shery]

уважаемые подскажите, как в листе excel найти строку со словом например "test" и ниже ее вставить строку со словами "test_test"? я только начинаю разбираться с VBA, опыт небольшой, поэтому заранее извиняюсь за простоту вопроса. ткните где почитать.

[bi-lya]

Примерно то же http://forum.developing.ru/showthread.php?t=12553

[Pavel55]

Попробуйте так

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

Sub Макрос1()
Dim iRange As Range
Dim iString As String
    iString = "Test"
    Set iRange = ActiveSheet.UsedRange.Find(what:=iString, LookIn:=xlValues, LookAt:=xlWhole)
    If iRange Is Nothing Then
        MsgBox "Текст " & iString & " на листе не найден!", vbExclamation, "Ошибка"
        Exit Sub
    End If
    Rows(iRange.Row + 1).Insert Shift:=xlDown
    Cells(iRange.Row + 1, iRange.Column) = "Test-Test"
End Sub

[shery]

спасибо за помощь, понял куда копать дальше.