Поиск совпадений и вывод на новую страницу

[Mr.Wonderful]

Доброго времени суток!
У меня огромная просьба к "богам Excel'a" соорудить макрос который ищет соответствия из разных столбцов и выводит на новый лист эти совпадения. А именно, каждый номер из столбца G, сравнивает с номерами столбца E, если находит совпадение, то на новом листе выводит полностью строку(и) касающююся(иеся) этого номера, если не находит - переходит к следующему. (хорошо бы если при выводе было разделение между разными номерами)
Вот как то так!
Буду ооочень признателен!

[EducatedFool]

Вот весь код:

Sub test()
    Dim cell As Range, ra As Range
    Set ra = [a1:e1] ' строка заголовка
    For Each cell In Range([e1], Range("e" & Rows.Count).End(xlUp)).Cells
        If Len(cell) Then    ' ищем непустые ячейки в столбце Е
            If Not Range("g:g").Find(cell) Is Nothing Then
                ' если такое значение есть в столбце G
                Set ra = Union(ra, Range(cell, cell.EntireRow.Cells(1)))
            End If
        End If
    Next cell
    Dim sh As Worksheet: Set sh = Worksheets("Результат")
    sh.UsedRange.Clear    ' очистка листа от прежних данных
    ra.Copy sh.[a1]    ' копирование найденных строк
End Sub

Пример файла: http://excelvba.ru/XL_Files/Sample__...__17-53-56.zip


(добавлено позже)
-------------------------------------------
Надстройки и программы для поиска в Excel:
http://excelvba.ru/category/Excel/search

Надстройка для поиска на всех листах книги Excel
Надстройка для поиска в Excel с выводом результатов на новый лист
Поиск из поля на панели инструментов Excel


--------- а вот ещё одно готовое решение --------------

Надстройка LOOKUP предназначена для сравнения и подстановки значений в таблицах Excel.

Если вам надо сравнить 2 таблицы (по одному столбцу, или по нескольким),
и для совпадающих строк скопировать значения выбранных столбцов из одной таблицы в другую,
надстройка «Lookup» поможет сделать это нажатием одной кнопки.

В настройках программы можно задать:

• где искать сравниваемые файлы (использовать уже открытый файл, загружать файл по заданному пути, или же выводить диалоговое окно выбора файла)
• с каких листов брать данные (варианты: активный лист, лист с заданным номером или названием)
• какие столбцы сравнивать (можно задать несколько столбцов)
• значения каких столбцов надо копировать в найденные строки (также можно указать несколько столбцов)

Скачать надстройку для сравнения таблиц Excel и копирования данных из одинаковых строк

[Mr.Wonderful]

Воистину божественно! =)))) Завидую Вам белой завистью, как легко Вам это дается.

[Mr.Wonderful]

И еще одна просьба-пожелание - при выводе совпавшие номера идут в разброс, как нужно изменить цикл, чтобы он их выводил "стопками"?

[Mr.Wonderful]

Чего то не получается адаптировать под исходную (чуть модифицированную) таблицу! Если добавить пару столбцов с данными перед проверяемым столбцом всё перестаёт работать!
И ещё вопрос, как при выводе сгруппировать результаты сравнения по номерам (найденные сходства выводятся в разброс)?
ПРОШУ ВАШЕЙ ПРОФЕССИОНАЛЬНОЙ ПОМОЩИ!

[vidokru]

Добрый день, подскажите пожалуйста, что нужно сделать что бы этот код искал текстовые значения и выводил их на другую страницу.

[EducatedFool]

что нужно сделать что бы этот код искал текстовые значения и выводил их на другую страницу

Где пример файла? (с исходными данными, и ожидаемым результатом)

[vidokru]

Пожалуйста помогите что бы при нажатии клавиши поиск производился поиск фамилий в базе находящейся на другой странице, и все найденные строчки в которых есть нужная фамилия копировались на страничке "Поиск"

[Kinet]

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

[EducatedFool]

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

Нужна помощь в создании макроса, так как сам в этом ни че не понимаю. Вообщем есть файл, на 1 листе тел. номера с именами, а на втором детализация звонков. Нужно что бы происходило сравнение номеров в детализации с номерами на 1-м листе, при совпадении в столбец I второго листа записывалось имя соответствующее номеру.

Как же вы все любите макросы...

Простейшая формула вам поможет:

  Ячейка: I2      Формула  (стиль A1):   =ЕСЛИ(ЕНД(ВПР(E2;Лист1!A:E;5;0));"";ВПР(E2;Лист1!A:E;5;0))
                  Формула  (стиль R1C1): =ЕСЛИ(ЕНД(ВПР(RC[-4];Лист1!C[-8]:C[-4];5;0));"";ВПР(RC[-4];Лист1!C[-8]:C[-4];5;0))

Пример - в файле: http://excelvba.ru/XL_Files/Sample__...__11-45-33.zip