Как удалить повторяющиеся ячейки более чем 3 раза.

[ruslanback]

Здравствуйте. Подскажите как удалить не все дубликаты, а только те которые повторяются более 3-х раз?

[IgorGO]

удаляйте, начиная с ЧЕТВЕРТОГО

[IgorGO]

Sub DelMoreThen3()
  Const K As Long = 2 ' № колонки поиска дубликатов
  Dim r As Long
  r = Cells(Rows.Count, K).End(xlUp).Row
  Do While r > 3
    If WorksheetFunction.CountIf(Columns(K), Cells(r, K)) > 3 Then Rows(r).Delete
    r = r - 1
  Loop
End Sub