Сверка данных двух таблиц

[AdminMars]

Добрый день! Задача проста, но для меня оказалась не разрешимой(
Есть две таблицы ФИО и дата рождения! ЗАДАЧА: вывести отчет, содержащий ОДИНАКОВЫЕ ФИО и даты рождения
p.s. тема была, но материал не помог(((Спасибо

[Djeki]

Нажмите кнопку ПОЕХАЛИ на листе Совпадения.
Сравнивать ФИО из Таблица 1 с ФИО Таблицы 2 и совпадения вывести:
Совпадений кстати не так и много..

[AdminMars]

ай, спасибо, молодец!

[Zufira]

Спасибо большое! Вы очень помогли))))

[muhammad95]

подскажите как вы первую таблицу сверели со второй

[Hugo121]

Код от Djeki на сегодня устарел - теперь на словаре такие сверки модно делать
Вот - под тот древний пример. Пара "лишних" строк/действий исправляют косяки в данных, и правда возможно есть недочёт при преобразовании некоторых строк в дату - не стал код тщательно доводить, т.к. не суть и никому это практически не нужно...

Sub hugo()
    Dim a(), b(), i&, ii&, t$, tt&, x&

    With CreateObject("scripting.dictionary")
        .comparemode = 1

        a = Sheets("Таблица 1").[a1].CurrentRegion.Value
        For i = 1 To UBound(a)
            .Item(Trim(a(i, 1)) & "|" & Trim(a(i, 2)) & "|" & Trim(a(i, 3)) & "|" & a(i, 4)) = i
        Next

        b = Sheets("Таблица 2").[a1].CurrentRegion.Value
        For i = 1 To UBound(b)
            If Len(b(i, 4)) Then
                t = Trim(b(i, 1)) & "|" & Trim(b(i, 2)) & "|" & Trim(b(i, 3)) & "|" & CDate(Replace(b(i, 4), "г.", ""))
            Else
                t = Trim(b(i, 1)) & "|" & Trim(b(i, 2)) & "|" & "|" & CDate(Replace(b(i, 3), "г.", ""))
            End If
            If .exists(t) Then
                ii = ii + 1
                tt = .Item(t)
                For x = 1 To 4: b(ii, x) = a(tt, x): Next
            End If
        Next
        Sheets("Совпадения").[a1].Resize(ii, 4) = b

    End With
End Sub

[Czeslaw]

Можно сделать Вашу работу условным форматированием. Формула условного форматирования =COUNTIF('Таблица 1'!E:E;D68).
Но сразу необходимо удалить все лишние пробелы, поправить Ф.И.О., так как у некоторых год рождения приписан к отчеству и т.д.
Правда я не знаю как откроется у Вас мой файл, т.к. я делал его на Excel 2010.

[Hugo121]

Ну да, если вручную или формулой слить ФИО+дата (исправив сперва все косяки) - то можно счётесли() или хоть впр() использовать для определения пар.

[Czeslaw]

Можно и так, но прежде
1. Убрать лишние пробелы.
2. Поменять формат даты на втором листе (формула есть в файле).
3. Формулой
=COUNTIFS('Таблица 2'!A:A;A2;'Таблица 2'!B:B;B2;'Таблица 2'!C:C;C2;'Таблица 2'!E:E;D2) и фильтрованием определить совпадения.
При таком методе отпадает использование макросов, а косяки в любом случае надо исправлять.

[Hugo121]

Ну макрос эти косяки исправляет "на лету" - и пробелы, и даты, и регистр, и то, что местами даты в другой ячейке.
По крайней мере мой вариант.