Честно скажу, поиском пользовался в течении нескольких дней, но ответа не нашел. Ситуация для гуру экселя, наверное, примитивная, есть столбец, в нем цифры, нужно выделить дубликаты, НО нужно, чтобы второй чем-либо отличался от первого, либо шрифтом, либо заливкой. Есть решение?
spy74, макрос, только предварительно нужно удалить УФ из диапазона:
Код
Sub aaa()
Dim aa As Range, AL As Object
Set AL = CreateObject("System.Collections.ArrayList")
For Each aa In Intersect(Columns(1), ActiveSheet.UsedRange)
If Not AL.contains(aa.Value) Then
AL.Add aa.Value
Else: aa.Font.Color = vbRed: aa.Font.Italic = True
End If
Next
Set AL = Nothing
End Sub
Anchoret,спасибо! Пытливый, огромное спасибо! До макросов я еще не дорос, а вот СЧЁТЕСЛИ уже измусолил до дыр, но догадаться сделать именно так, как подсказали, не смог. Спасибо, еще раз!
Заранее извиняюсь, но не хочу плодить лишних тем - у меня еще есть вопрос: как по простому выделить ячейки, в которые данные занесены вручную, а не сформированы с помощью формулы. Пример прикладываю. ЗЫ. Обнаглею в конец - в этом файле в скрытых строках есть перечень артикулов пленок, как можно сделать так, чтобы оператор записывал цифры или буквы, а компьютер предлагал записать артикул полностью с недостающими буквами и, при необходимости, цифрами. Автозамена не подходит, т.к. операторы записывают каждый раз по-разному, кроме того, часто она работает некорректно (после пропущенных строк и т.п.)