Версия для печати темы

Нажмите сюда для просмотра этой темы в оригинальном формате

WinCity.Ru _ Microsoft/Office Excel _ Сортировка с удалением повторяющихся

Автор: Ekho Суббота, 10 Августа 2002, 21:20

Собственно проблема описана в теме, но уточню что именно нужно:
Итак имеется файл длиной порядка 600 строк, часть из которых повторяется, тр<censored>ется оставить по одной строке из каждого типа. Простая сортировка не подходит, т.к. получается порядка 250 пар одинаковых строк - я ещё не спятил чтоб вручную удалять!
Кто знает как автоматизировать процесс?

Автор: mokc0der Понедельник, 12 Августа 2002, 23:13

Если я правильно понял необходимо отсортировать строки и удалить повторяющиеся. Значит у меня получился вот такой макрос (возможно тебе предется доделать под свои нужды)
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
k = 1
i = 2
While i <= ActiveCell.CurrentRegion.Rows.Count
If Cells(k, 1) = Cells(i, 1) Then
Cells(i, 1).EntireRow.Delete
Else
k = k + 1
i = i + 1
End If
Wend

Автор: Ekho Понедельник, 12 Августа 2002, 13:44

Спасибо, обязательно попробую!