Макрос для поиска совпадений

[Dealaxer]

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

Предположим что на первом листе у нас 5 столбцов в левой стороне листа и 5 в правой, в правой стороне 5 столбцов куда постоянно заносятся данные типо ФИО номер адрес и т.д., и они постоянно там хранятся, а в левой стороне тоже ФИО и т.д. но они обновляются каждый день, так вот нужно чтобы макрос из правых 5 ячеек проверял совпадения в левых, все совпадения записывались в 5 ячеек на другом листе и все новые найденные там же, слева и справа?
Помогите пожалуйста, если такое вообще возможно осуществить?

[Dealaxer]

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

С этим пробовал возиться, но что то не пойму ничего

[Dealaxer]

Вот этот код конечно хорош, мне бы подошел, только он сразу добавляет новые данные к листу 1, а нужно чтобы на 3 лист выводились повторяемые значения из листа 2 когда проверяются с листом 1:

Sub Main()
    Dim x As New Collection, i As Long
    Application.ScreenUpdating = False: On Error Resume Next
    Sheets(1).Select: With Sheets(2)
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        x.Add Cells(i, "A"), CStr(Cells(i, "A"))
    Next
    For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
        On Error Resume Next
        x.Add .Cells(i, "A"), CStr(.Cells(i, "A"))
        If Err = 0 Then .Rows(i).Copy Rows(Cells(Rows.Count, "A").End(xlUp).Row + 1)
    Next
    End With
End Sub

[SAS888]

Задача не сложная. Прикрепите файл с примером из нескольких строк. На 3-м листе приведите пример требуемого результата. И еще:

нужно чтобы макрос из правых 5 ячеек проверял совпадения в левых, все совпадения записывались в 5 ячеек на другом листе и все новые найденные там же, слева и справа?

Из такой формулировки следует, что ничего сравнивать не нужно, т.к. переносить требуется как совпавшие, так и не совпавшие строки таблиц. Объясните подробнее.
Только после этого Вы получите быстрый и точный ответ. Не помешает и прочитать правила раздела.

[Dealaxer]

SAS888, спасибо что ответил, я в этом новичок с VBA никогда не имел дело, только VB

в принципе вот так:
В левые 5 столбцов вносятся каждый раз новые данные и сверяются с 5 правыми постоянными данными которые хранятся в файле
Если возможно, как я думаю, макрос должен сверять совпадения и абсолютно новые данные и совпавшие выносить на новый лист также по 5 столбцов

Вот пример:
База_1.rar

[Dealaxer]

И самое главное данные должны сверятся только по номерам, а все остальные столбцы просто переносится

[Dealaxer]

Люди помогите пожалуйста, не могу разобраться в этом

[Dealaxer]

Прям монолог)))

[SAS888]

Посмотрите вложение. Запустите макрос "Main". Что не так?

[Dealaxer]

SAS888, вы действительно знаток своего дела, спасибо огромнейшее, очень помогло!)))
А можно сделать небольшие дополнения, например, в столбце Состояние если написано открыто, то в столбце Счет будет отображаться сумма 20, если Закрыто или пусто, то в счете либо 0 либо пусто?
И хорошо было если такое возможно, сделать макрос на странице Результат, чтобы он копировал найденные новые данные в основную базу на 1 странице, с помощью кнопки?