удаление дублей

[Bape}l{ka]

подскажите пожалуйста, в чем ошибка?
есть макрос, который красит все дубли, которые находит
но вот что-то не пойму, как сделать так, чтобы он удалял дубли?
у меня почему-то удаляется только первый из дублирующихся записей, а остальные остаются Т_Т

    For Each r In Range(Cells(FirstRow, FirstCol), Cells(MaxRow, MaxCol)).Columns
        'For Each c In Intersect(ActiveSheet.UsedRange, r)
        For Each c In r.Cells
           
            If Application.CountIf(r, c) > 1 Then c.Interior.ColorIndex = ErrorColor_
                c.Delete shift:=xlUp 'удаление дубля
           
        Next
    Next

[Hugo121]

Удалять нужно циклом снизу вверх (и справа налево), иначе на место удалённого сдвигается строка/столбец, которые уже не проверяются.

[Bape}l{ka]

а как такого добиться?? О_о
может есть примерчик удаления в цикле? или что-нибудь подобное?

[tae1980]

Сообщение от Bape}l{ka

как сделать так, чтобы он удалял дубли?

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

[Hugo121]

Я так Ваш код наладил.
Т.к. удаляем в столбцах, то перебор столбцов не менял, а вот перебор строк сделал снизу вверх.
Нужно добавить объявление переменных, но это вероятно у Вас в коде есть.
Не понял, что за ErrorColor_ и почему удаление вне условия - сделал так:

Sub UdalitjPovtori()
    FirstRow = 5
    FirstCol = 2
    MaxRow = 10
    MaxCol = 3

    For Each r In Range(Cells(FirstRow, FirstCol), Cells(MaxRow, MaxCol)).Columns
        'For Each c In Intersect(ActiveSheet.UsedRange, r)
        For i = r.Cells.Count To 1 Step -1

            ''==== это для наладки, не нужно в продукте :)
            'r.Cells(i).Select
            'Debug.Print r.Address
            'r.Select
            'Debug.Print r.Cells(i).Address
            ''============================

            If Application.CountIf(r, r.Cells(i)) > 1 Then
                r.Cells(i).Interior.ColorIndex = ErrorColor_
                r.Cells(i).Delete shift:=xlUp    'удаление дубля
            End If
        Next
    Next

End Sub

Интересный эффект, как-то раньше не задумывался - при удалении ячейки диапазон r тоже уменьшается. Хотя так по логике и должно быть.
Т.е. то, что подтягивается снизу - в рассчёт не берётся.

[Bape}l{ka]

вааа, большое человеческое спасибо)))

з.ы.: а вне условия, это я End If удалила случайно =ь

[Bape}l{ka]

вот не пойму, то ли записи не дублирующиеся, то ли есть ограничение на количество дублей ?_?

есть ли какие-то ограничения по циклам на количество обрабатываемых единиц??

[Hugo121]

... может быть r.Cells.Count выходит за предел Integer? ...