макрос Excel для подсвечивания строк, в которых значения по одному из столбцов повторяются

Question

Здравствуйте. 

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

Вот такой вот имеется код:

Sub Макрос1

Dim i&, lstr&, arr ``As Range, n

lstr = Cells(Rows.Count, 1).``End``(xlUp).Row

Range(``"A1:AF" & lstr).Interior.ColorIndex = xlNone

    ``Set arr = Range(``"A1:A" & lstr)

    ``For i = 1 ``To lstr

        ``n = Evaluate(``"INDEX(CountIf(Range(Cells(1,1),Cells(lstr,1)), Range(Cells(1,1),Cells(lstr,1))),)"``)

        ``If n(i, 1) > 1 ``Then

            ``arr(i, 1).Resize(, 32).Interior.ColorIndex = 43

        ``End If

    ``Next

End Sub

Код этот не работает, так как все, что идет в скобках после Evaluate, воспринимается как строковый тип.

Попробовала изменить эту строчку

n = Evaluate(``"INDEX(CountIf(" & Range(Cells(1,1),Cells(lstr,1)) & ``"," & Range(Cells(1,1),Cells(lstr,1)) & ``"),)"``)

тоже не работает

Помогите, пожалуйста. Что нужно исправить?

Answer 1

1. Где файл-пример с вашим макросом? - воспользуйтесь для загрузки, разделом Q9 справки, ссылку на файл-пример вставьте в своё сообщение.
2. Воспользуйтесь серией статей в нашей Библиотеке MSDN, для решения вашей задачи.
3. Вы напрасно так грешите на Условное форматирование:

Файл-пример.