[okshef]

Данные - Удалить дубликаты

[The Off]

Данные - Удалить дубликаты »

Так ведь это удаляет дубликаты только на текущем листе

[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 и ФИО все-таки соответствуют друг другу.

[The Off]

okshef, Огромное Вам спасибо !!! Я поначалу даже и не думал о модулях !!! Теперь не придется тратить каждый месяц на это целую кучу рабочего времени

[okshef]

The Off, спасибо за отзыв, рад, что смог помочь, хотя не считаю себя большим спецом в Excel. Код немного поправил - удалил ненужную строчку. Функциональность не меняется, но чуть-чуть ускоряется.

[The Off]

okshef, ну ты быстро сообразил, как это можно реализовать, я бы только завтра догадался, что можно это с помощью модуля сделать, у меня будет еще 1 вопрос, но по access, изложу немного позже в новой теме, когда появится время

okshef, подскажи пожалуйста как добавить еще один столбец в выборку ? я просто в программировании вообще не силен...

[okshef]

Поточнее можно?

[The Off]

okshef, ну появилась необходимость делать выборку еще по одному критерию получается таблица будет состоять уже из 4 столбцов вот нужно новый четвертый добавить это можно сказать "второй ID"

[okshef]

Сделайте примерный файл из 10 строчек с желаемым результатом (кнопка "Прикрепить файл" справа от окна ввода сообщения).