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

[Bape}l{ka]

Hugo121
спасибо большое!)) все вроде понятно, особенно, пока я подгоняла к своему случаю, вроде разобралась
хочу уточнить, если бы мы сравнивали по столбцам, то надо писать

For Each r In [a1:q82].Columns ??

еще раз спасибо, и особенно за разъяснения! ведь главное, ПОНЯТЬ как это работает)

[Hugo121]

Ну да.
r - это может быть любое обозначение переменной, для столбцов больше подходит col

А чтоб удостоверится, я обычно так поступаю - и гоню по F8:

Sub tttt()
For Each r In [a1:q82].Columns
r.Select
Next
End Sub

И упс, нашёл ошибку в коде/описании выше - при

For Each r In [a1:q82].Rows '.Columns
r.Select
Next

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

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

И даже ещё одну строку сократил...

[Bape}l{ka]

Hugo121, спасибо большое)))