Перебор данных в столбце Excel - VB

Формулировка задачи:

помогите, плиз! как можно в экселе перебирать текстовые значения в определенном столбце и, в случае совпадения, записывать строку с этим значением в новый экселевский файл? прошу прощения, если что-то не так употребила - полный чайник...

Решение задачи: «Перебор данных в столбце Excel»

textual
                            Листинг программы 
                        

                            Sub Stroka()
Dim k As Integer
Dim m As Integer
Dim i As Integer
 
k = 20 'Кол-во проверяемых строк
m = 1
For i = 1 To k
    If Workbooks('Книга1').Sheets('Лист1').Cells(i, 1) = 'Знач.' Then
       Workbooks('Книга2').Sheets('Лист1').Rows(m) = _
            Workbooks('Книга1').Sheets('Лист1').Rows(i).Value
       m = m + 1
    End If
Next
End Sub
                        