удалить повторяющиеся строки

Novosib

Гость

01.11.2008 14:22:05

Доброго времени суток! Помогите, кто чем может!?
Есть у меня список сотрудников:
Столбцы: Фамилия/Имя/Отчество/дата рождения(иногда только год, а иногда число и месяц с годом)/город/улица/дом/квартира/контактный телефон/должность/отдел
Многие строки повторяются и бывают совершенно одинаковыми, а бывают имеют разницу в столбце "Дата рождения"(т.е. либо формат ЧЧ.ММ.ГГГГ либо ГГГГ). Очень интересует вопрос, как удалить те строки которые абсолютно - ОДИНАКОВЫ, оставив при этом одну из них как оригинал???
С уважением,

Prog Пользователь Сообщений: 137 Регистрация: 01.01.1970	#2 01.11.2008 14:27:13 Примерно (мб код с ошибками): i=1 do while Len(cells(i+1,"A"))>0 k=Range("A65536").end(xlup).row for j=k to i+1 step -1 if cells(j,"A")=cells(i,"A") and cells(j,"B")=cells(i,"B") and cells (j,"C")=cells(i,"C") then ''''можно добавить ещё условий cells(j,"A").entirerow.delete end if next loop

ber Гость	#3 02.11.2008 00:34:15 В екселе 2007 есть команда "удалить дубликаты" Выбираете те поля, по которым нужно проверить повторы, жмем Enter и все.

Novosib

Гость

07.11.2008 06:02:59

{quote}{login=Prog}{date=01.11.2008 02:27}{thema=}{post}Примерно (мб код с ошибками):
i=1
do while Len(cells(i+1,"A"))>0
k=Range("A65536").end(xlup).row
for j=k to i+1 step -1
if cells(j,"A")=cells(i,"A") and cells(j,"B")=cells(i,"B") and cells (j,"C")=cells(i,"C") then ''''можно добавить ещё условий
cells(j,"A").entirerow.delete
end if
next

loop{/post}{/quote}

Уважаемый, Prog!
А можете ли Вы подсказать, что означает этот английский текст и самое главное как его применить??!!??!! Что именно с ним сделать!!??!!??

слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#5 07.11.2008 08:41:32 данные - расширенный фильтр - только уникальные Живи и дай жить..

Читают тему