[okshef]

The Off, заполните верхнюю строчку на листе 3 (например, "Номер", "ID", "ФИО") - обязательно. Добавьте модуль, вставьте в него текст

Код:

Sub findnew()
    For Each c In Worksheets(2).Columns(2).Cells
        If Worksheets(1).[b:b].Find(c.Value) Is Nothing Then
             Worksheets(2).Range("a" & c.Row & ":c" & c.Row).Copy Worksheets(3).Range("a" & Worksheets(3).Cells.Rows.Count).End(xlUp)(2)
        End If
     If IsEmpty(c) Then Exit For
     Next
 End Sub

и запустите

Формулами решение, наверное, есть, но честно, лень искать.

Предполагалось, что ID и ФИО все-таки соответствуют друг другу.