Добавить пустые строки в список

[KNatalia]

Добрый день!
Подскажите, пожалуйста, в решении такой задачки:
У меня есть два списка с данными (к примеру с ФИО людей),
В одном списке (закладка лист 1) представлены все имеющиеся ФИО, во втором списке (закладка Лист 3) представлены те же ФИО людей, но не все. Необходимо для сравнения этих списков преобразовать список два (закладка Лист 3), для этого вставить недостающие строки в виде пустых строк. Затем сравнить полученный список со списком 1.

Если список маленький, то вставить пустые строки вручную легко, если большой до 60 тыс. записей, то уже проблема. Подскажите, как автоматизировать процесс?

[SAS888]

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

[KNatalia]

Спасибо большое!

А не могли бы вы рассказать алгоритм работы программы. Чуточку не понятно. Извините, что спрашиваю, просто я новичок в программировании, учусь и пытаюсь разобраться в том, что мне не очень понятно.

ReDim c(1 To UBound(a, 1), 1 To 4): Sheets("что должно быть").Activate
For i = 1 To UBound(a, 1)
For j = 1 To UBound(b, 1)
c(i, 1) = i
If a(i, 2) = b(j, 1) Then
If a(i, 3) = b(j, 2) Then
If a(i, 4) = b(j, 3) Then
c(i, 2) = a(i, 2): c(i, 3) = a(i, 3): c(i, 4) = a(i, 4): Exit For
End If: End If: End If: Next: Next
Range([A4], Cells(Rows.Count, 8)).Clear
Range([E4], Cells(UBound(a, 1) + 3, 8)).Value = a
Range([A4], Cells(UBound(c, 1) + 3, 4)).Value = c

Заранее благодарна

[Teslenko_EA]

Здравствуйте KNatalia.
Ваша задача может быть решена и с применением библиотеки ADO.
Евгений.

[SAS888]

В коде макроса (см. вложение) подробные комментарии.

[KNatalia]

Большое Вам всем спасибо за помощь и подробные комментарии!
Очень благодарна!

С наилучшими пожеланиями, Наталья