Как проверить повторение чисел в столбце

[komar73]

Помогите не могу найти формулу которая бы отслеживала значения которые посторяются в столбце

[systemmind]

Не знаю как реализовать, но знаю функцию СЧЕТЕСЛИ. Она подсчитывает одинаковые значения в выделенном диапозоне ячеек в соответствии с заданным значением. Например в любой ячейке пишешь формулу: =СЧЁТЕСЛИ(E:E;H14), где E:E - твой столбец, а H14 - ячейка, в которую ты пишешь число, которое находится в твоем слобце. После нажатия Энтер, H14 ищется в E:E и если находится, то подсчитывается их количество.

[komar73]

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

[КаМММ]

С помощью макроса устроит?

[komar73]

Конечно устроит

[КаМММ]

Ну вот как-то так например
Удаляет дублированные записи считая количество уникальных.
(Выдрал из сортировки номеров телефонов)

[zenner]

а подскажите пожалуйста макрос который будет искать на всем листе,во всех ячейках все повторы и будет выделять оригинал красным а повторы зеленым цветом. В сети нашел такой макрос но он почемуто не всегда находит:

Sub Macro1()
 For a = 1 To 5000
 If Cells(a, 2).Value <> "" And Cells(a, 3).Value <> 1 Then
 For b = 1 To 5000
 If b <> a Then
 If Cells(a, 2).Value = Cells(b, 2).Value Then
 Cells(a, 2).Interior.ColorIndex = 4
 Cells(b, 2).Interior.ColorIndex = 3
 Cells(b, 3).Value = 1
 End If
 End If
 Next
 End If
 Next
End Sub

В этом файле 72 RN 8.zip один номер повторяется два раза в двух разных местах.Как бы его найти? Спасибо!!!

[Hugo121]

Ну ну... И как будете в этой каше разбираться?

Option Explicit

Sub tt()
    Dim cc As Range
    With CreateObject("Scripting.Dictionary")
        .CompareMode = 1
        For Each cc In ActiveSheet.UsedRange.Cells
            If Len(cc) Then
                If .exists(cc.Value) Then
                    Range(.Item(cc.Value)).Interior.Color = vbRed
                    cc.Interior.Color = vbGreen
                Else
                    .Item(cc.Value) = cc.Address
                End If
            End If
        Next
    End With
End Sub

И который из этих номеров ОДИН?

[zenner]

В этом файле Вложение 45765 один номер повторяется два раза в двух разных местах.Как бы его найти? Спасибо!!![/QUOTE]

Там номер 795604 повторяется 3 раза. Вот для поиска этих повторений и нужен макрос а тот код что выше, не находит их!

[doober]

4 шага к успеху.

1.Посещаете тему ADO Обработка данных

2.Копируете код Public Function ADO_R_Dmitry
в созданный модуль вашего файла.

3.Добавляете новый лист в свой файл для вывода результата,например Лист2

4.В модуль добавляете макрос

Sub GO_povtor()
S_sql = "SELECT Phone , Count(Phone) as [Count] FROM [CTA-728 La crosare$] GROUP BY Phone  HAVING (Count(Phone)>1);"
ADO_R_Dmitry S_sql, ThisWorkbook.FullName, Лист2.Range("A1"), True, True
End Sub