Выделение одинаковых значений в одной колонке

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Выделение одинаковых значений в одной колонке (Макросы/Sub)

ant6729

Дата: Понедельник, 29.05.2017, 20:57 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

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

Но самое главное, хочу понять, как вообще можно было бы выделить одинаковые значения без использования условного форматирования. То есть подойдут любые варианты.

Подскажите, пожалуйста, как это сделать.
Пример моих попыток в модуле листа.

К сообщению приложен файл: 0849835.xlsm (12.2 Kb)

Ответить

Pelena

Дата: Понедельник, 29.05.2017, 21:16 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19603

Репутация: 4660 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Используйте СЧЁТЕСЛИ()
Фрагмент Вашего кода
[vba]

Код

    lr = Sheets("Лист1").Cells(Rows.Count, 3).End(xlUp).Row
    For i = 7 To lr
        If Application.WorksheetFunction.CountIf(Range("C7:C" & lr), Cells(i, 3).Value) > 1 Then
            Cells(i, 3).Interior.Color = 10213317
        End If
    Next i

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

ant6729

Дата: Понедельник, 29.05.2017, 21:26 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Ага... вот Вы откуда зашли...
Спасибо, Pelena!!!)

Ответить

Выделение одинаковых значений в одной колонке (Макросы/Sub)

Страница 1 из 1
1