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

[And59]

Здравствуйте примногоуважаемые господа программеры! =)

Помогите решить такую задачку, есть книга в exсel с N'ным количеством листов, на каждом листе есть информация, необходимо на этих листах найти одинаковые слова и скопировать все строчки в которой это слово нашлось на отдельный лист.
Интересует поиск слова (надо)
В excel не силен поэтому обращаюсь к спецам!!!
Надеюсь на понимание и помощь =)

[And59]

книга для примера
пример.zip

[Hugo121]

А можно задачу упростить?
Искать не одинаковые слова по всем листам, а на всех листах искать слово "надо" в столбце E?
Думаю, "необходимо на этих листах найти одинаковые слова" сложновато будет реализовать...

[And59]

Сообщение от Hugo121

А можно задачу упростить?
Искать не одинаковые слова по всем листам, а на всех листах искать слово "надо" в столбце E?
Думаю, "необходимо на этих листах найти одинаковые слова" сложновато будет реализовать...

В принципе да, можно таким образом упростить

[Hugo121]

Option Explicit

Sub tt()
Dim sh As Worksheet
Dim cc As Range
Dim i&

For Each sh In Worksheets
If sh.CodeName <> "Sheet5" Then
For Each cc In sh.UsedRange.Columns(5).Cells
If cc.Value Like "надо*" Then
i = i + 1
cc.EntireRow.Copy Sheet5.Cells(i, 1)
End If
Next
End If
Next

End Sub

[And59]

Сообщение от Hugo121

Option Explicit

Sub tt()
Dim sh As Worksheet
Dim cc As Range
Dim i&

For Each sh In Worksheets
If sh.CodeName <> "Sheet5" Then
For Each cc In sh.UsedRange.Columns(5).Cells
If cc.Value Like "надо*" Then
i = i + 1
cc.EntireRow.Copy Sheet5.Cells(i, 1)
End If
Next
End If
Next

End Sub

почему то ругается в самом начале на Sub tt()?

[Hugo121]

Такой макрос уже есть?

[And59]

Сообщение от Hugo121

Такой макрос уже есть?

нет, раньше с макросами неприходилось сталкиваться

[Hugo121]

Ну тогда куда Вы макрос пишете?
Я его вставлял в созданный стандартный модуль.

Хотя сейчас проверил - работает и из модуля книги, и из модуля этого сводного листа.
Вообще на название ругаться может только если такой макрос в этом модуле уже есть, вроде так.
Сохраните книгу с поддержкой макросов, разрешите макросы.

P.S. И название "tt" совершенно непринципиально...

[And59]

я вообще потерялся, Hugo121 можете для примера прикрепить файл с макросом? Буду только благодарен!