поиск дублей в строке

[Bape}l{ka]

здравствуйте уважаемые!
помогите пожалуйста определить дубли (т.е. совпадающие значения) в строке, и если есть такие, то покрасить эти ячейки, например, в красный цвет
собственно, я предполагаю, что надо использовать For each для диапазона, но не понимаю, как написать/определить в этом диапазоне одинаковые элементы, т.е. что за функция определения совпадают или нет ячейки, как-то так
подскажите плииз!

дубли.rar

[Hugo121]

Для определения дублей обычно словарём или коллекцией пользуются (на больших диапазонах быстрее), но можно привлечь и функцию листа СЧЕТЕСЛИ()

Так например, грубо:

Sub tt()
Dim r As Range, c As Range
For Each r In [a1:q82].Rows
For Each c In Intersect(Sheets(3).UsedRange, r)
If Application.CountIf(r, c) > 1 Then c.Interior.ColorIndex = 3
Next
Next
End Sub

[Bape}l{ka]

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

[Bape}l{ka]

спасибо большое, сча попробую

Hugo121, а вы могли бы пояснить для меня эти строки, что тут происходит?
For Each r In [a1:q82].Rows
For Each c In Intersect(Sheets(3).UsedRange, r)

[Казанский]

Условное форматирование для всего листа:

[Hugo121]

На словаре сложнее получается...

Sub ttt()
Dim r As Range, c As Range, oDict As Object, i&, temp
For Each r In [a1:q82].Rows
Set oDict = CreateObject("Scripting.Dictionary")
i = 0
For Each c In Intersect(Sheets(3).UsedRange, r)
i = i + 1
temp = c.Value
If Len(temp) Then
If Not oDict.Exists(temp) Then
            oDict.Add temp, CStr(i)
    Else
c.Interior.ColorIndex = 3: r.Cells(oDict.Item(temp)).Interior.ColorIndex = 3
End If
End If
Next
Next
End Sub

[Bape}l{ka]

Казанский
тоже спасибо большое, но на самом деле Hugo121 предложил как раз то что мне нужно, еще бы пояснения получить))

[Hugo121]

Так в первом коде пояснять нечего, раз Вы уже про for each осведомлены.
упс, заметил:
для каждого r в рядах/строках диапазона [a1:q82] (но r - это весь ряд!) так мне казалось, см. ниже
For Each r In [a1:q82].Rows
для каждого c в пересечении использованной области третьего листа с r
For Each c In Intersect(Sheets(3).UsedRange, r)

т.е. в итоге пробегаем построчно по нужным ячейкам.


А по второму (плюс к сказанному выше)- на каждом шаге цикла перебора строк заводим новый словарь, куда в цикле по строке помещаем значения ячеек с порядковым номером. Если такое значение уже есть - красим её (ячейку) и ту, порядковый номер которой в словаре.

[Bape}l{ka]

нет, в целом что происходит, понятно, мне нужны частности, т.к. я в синтаксисе не очень понимаю:

For Each r In [a1:q82].Rows ---> для каждого r в диапазоне [a1:q82] - не понятно, что значит .Rows ?

For Each c In Intersect(Sheets(3).UsedRange, r) ---> тут не ясно, что такое Intersect(Sheets(3).UsedRange, r)

могли бы вы эти действия словами описать пожалуйста, чтобы в похожей ситуации я смогла сама сообразить?

[Hugo121]

.Rows - это ряд.
Т.е. ряды, присутствующие в диапазоне. Но ряд получаем целиком, от A до IV или что там в 2007. - это неверно, см. ниже
Если бы написал для каждого r в диапазоне [a1:q82].cells - получили бы все ячейки этого диапазона, но Вам ведь нужны повторы в строках?

Intersect(Sheets(3).UsedRange, r)
Intersect - это наверное пересечение (не смотрел в переводчике).
UsedRange - использованная область.
Можно было бы вероятно и так написать:
Intersect(Sheets(3).[a1:q82], r)
Т.е. получаем общую область пересечения двух диапазонов - всего [a1:q82] и текущего ряда = ячейки ряда в [a1:q82].

Понятно объяснил?