Developing.ru

To heisnod.
Вы писали: "Поясните вопрос, ничего не понял."
Это не вопрос
Вы выложили код с рекомендацией "поэксперементируй".
Конструкция интересная, но не работоспособна т.к. содержит ошибку (не думаю, что это опечатка)
попытка выполнить чтение таблицы пропустив первую строку "...$A2:E25000]..."
После "...практически не менял..." код в файле Для Жени.zip стал "живым"
т.к. запрос изменен и обращается уже к первой строке таблицы Excel "...$A1:B50]..."
ADO читает таблицы с первой записи (строки), но при подключении к листу Excel
команда HDR=YES сообщает, что в первой строке содержатся имена полей ("...people1.Имя, people2.Вес...").
Надеюсь теперь доступно изложил.
Удачи Вам.
Евгений.

Код был с ошибкой, поэтому и написал поэксперементируй. На тот момент работал, и не было времени красиво все оформить. Но того, что я написал людям, которые умеют логически думать и пользоваться google вполне достаточно, чтобы решить поставленую задачу. Ну, если же все равно не получится, то можно уже конкретно спросить.
Евгений, объясните какая разница какой будет диапазон? Разве кто-то что-то спрашивал конкретно или давал файл с таблицами?

Ребята всем спасибо большое за советы, у меня вроде все получилось., вот стаким макросм
With ThisWorkbook 'указать нужную книгу
With .Worksheets("Лист2") 'лист с указанным именем должен существовать
iAddress$ = .Range(.Range("B1"), .Range("B65536").End(xlUp)).Address(External:=True)
iFormula$ = "=IF(COUNTIF(" & iAddress$ & ",B1)>0,""да"",""нет"")"
End With
With .Worksheets("Лист1") 'лист с указанным именем должен существовать
With .Range(.Range("B1"), .Range("B65536").End(xlUp)).Offset(0, 9)
'желательно, чтобы эти ячейки + лист не были защищены
.Formula = iFormula$
.Value = .Value
End With
End With
End With

Напротив совподаущих фамилий он ставит "Да", не совподают "Нет", а там уже автофильтром все "Да" и вот он результат.

Автофильтр глючной, пользуюсь только в крайнем случае, когда нужно что-то быстро посмотреть.

(heisnod, это почти что провокация флейма! На всякий случай предупреждаю, что "глючность автофильтра" в этой теме не обсуждается.)

Я только предупредил, что его могут ждать сюрпризы.