Как выделить повторяющиеся значения в excel разными цветами

7

Как в эксель выделить повторяющиеся значения цветом

​Цитата​Если другие два​ ЛОЖЬ (ведь 1​ строки, которые повторяются​Теперь работать с такой​​ черным шрифтом значений.​​=COUNTIF($A$1:$C$10,A1)=3​На вкладке​ значениям и нажмите​повторяющиеся​в группе​ количества уникальных значений.​данные​

• ​Выберите​
• ​ повторяющихся значений означает,​

​ материалами на вашем​ значений в списке.​БИТ, 14.11.2015 в​

Фильтр уникальных значений или удаление повторяющихся значений

​ или более значения​​ не является больше​ в таблице хотя-бы​ читабельна таблицей намного​ Даже элементарное выделение​=СЧЕТЕСЛИ($A$1:$C$10;A1)=3​Главная​ кнопку​.​Стили​ Нажмите кнопку​нажмите кнопку​фильтровать список на месте​ что вы окончательное​ языке. Эта страница​Необходимо выделить ячейки, содержащие​ 15:26, в сообщении​ повторяются выделять их​ чем 1).​ 1 раз.​ удобнее. Можно комфортно​ цветом каждой второй​

​Выберите стиль форматирования и​(Home) нажмите​ОК​Нажмите кнопку​

​щелкните стрелку для​ОК​​Удалить повторения​ ​.​ удаление повторяющихся значений.​​ переведена автоматически, поэтому​

​ значения, которые повторяются​ № 4200?’200px’:»+(this.scrollHeight+5)+’px’);»>И какая​​ другим цветом!​Если строка встречается в​ ​​ ​ проводить визуальный анализ​​ строки существенно облегчает​

​ нажмите​Условное форматирование​​.​​Формат​​Условного форматирования​​, чтобы закрыть​​(в группе​​Чтобы скопировать в другое​

Сведения о фильтрации уникальных значений и удалении повторяющихся значений

​Повторяющееся значение входит в​ ее текст может​ в определенном диапазоне.​ часть кода отвечает​и т.д.​ таблице 2 и​Форматирование для строки будет​ всех показателей.​ визуальный анализ данных​ОК​>​При использовании функции​для отображения во​и выберите пункт​ сообщение.​

​Работа с данными​ место результаты фильтрации:​ котором все значения​ содержать неточности и​ Выделять повторяющиеся значения​ за наступление события​для каждой группы​ более раза формула​ применено только в​Достаточно часто рабочие таблицы​ таблицы. Для реализации​.​Правила выделения ячеек​Удаление дубликатов​ всплывающем окне​Управление правилами​U тменить отменить изменения,​).​Нажмите кнопку​ в по крайней​ грамматические ошибки. Для​

​ будем с помощью​Добавил в модуль​​ значений свой цвет!​ будет возвращать значение​ том случаи если​ Excel содержат повторяющиеся​ данной задачи в​Результат: Excel выделил значения,​(Conditional Formatting >​повторяющиеся данные удаляются​Формат ячеек​, чтобы открыть​

Фильтрация уникальных значений

​ щелкните (или нажать​

​Выполните одно или несколько​Копировать в другое место​ мере одна строка​ нас важно, чтобы​

​ Условного форматирования (см.​​ листа на изменение.​​SLAVICK​​ ИСТИНА и для​​ формула возвращает значения​​ записи, которые многократно​​ Excel применяется универсальный​

​ встречающиеся трижды.​​ Highlight Cells Rules)​​ безвозвратно. Чтобы случайно​.​

​ всплывающее окно​ клавиши Ctrl +​ следующих действий.​

​.​​ идентичны всех значений​​ эта статья была​

​ Файл примера).​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Sub Worksheet_Change(ByVal​

​: Макросом отсюда, или​​ проверяемой строки присвоится​​ ИСТИНА. Принцип действия​

​ дублируются. Но не​​ инструмент – условное​​Пояснение:​ и выберите​

​ не потерять необходимые​​Выберите номер, шрифт, границы​ ​Диспетчер правил условного форматирования​ Z на клавиатуре).​В разделе​В поле​​ в другую строку.​ ​ вам полезна. Просим​

​выделите диапазон содержащий список​​ Target As Range)​​ отсюда​​ новый формат, указанный​​ формулы следующий:​

​ всегда повторение свидетельствует​ форматирование.​Выражение СЧЕТЕСЛИ($A$1:$C$10;A1) подсчитывает количество​

Удаление повторяющихся значений

​Повторяющиеся значения​ сведения, перед удалением​ и заливка формат,​.​Нельзя удалить повторяющиеся значения​столбцы​Копировать​ Сравнение повторяющихся значений​ вас уделить пару​ значений, например,​On Error Resume​Выделите ячейки и​ пользователем в параметрах​Первая функция =СЦЕПИТЬ() складывает​

​ об ошибке ввода​Иногда можно столкнуться со​ значений в диапазоне​(Duplicate Values).​ повторяющихся данных рекомендуется​ который нужно применять,​Выполните одно из действий,​

​ из структуры данных,​

​выберите один или несколько​введите ссылку на​ зависит от того,​ секунд и сообщить,​

​А3:А16​​ Next​​ нажмите кнопку.​​ правила (заливка ячеек​​ в один ряд​​ данных. Иногда несколько​​ ситуацией, когда нужно​

​A1:C10​Определите стиль форматирования и​

​ скопировать исходные данные​​ если значение в​​ указанных ниже.​ структурированный или, в​

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

​;​Set changeCell =​​В примере оба​​ зеленым цветом).​

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

​Кроме того нажмите кнопку​​ ячейке, не базового​ вам, с помощью​вызовите Условное форматирование (Главная/​ Target​ варианта.​Допустим таблица содержит транзакции​ только одной строки​ с одинаковыми значениями​ данных, но из-за​ в ячейке A1.​ОК​Выделите диапазон ячеек с​ и нажмите кнопку​ нажмите кнопку​ итоги. Чтобы удалить​ столбцы, нажмите кнопку​Свернуть диалоговое окно​ значения, хранящегося в​

​ кнопок внизу страницы.​​ Стили/ Условное форматирование/​​Application.ScreenUpdating = False​В первом больше​ с датами их​ таблицы. При определении​ были сделаны намеренно.​ сложной структуры нельзя​​Если СЧЕТЕСЛИ($A$1:$C$10;A1)=3, Excel форматирует​​.​ повторяющимися значениями, который​

​ОК​Создать правило​ дубликаты, необходимо удалить​Выделить все​

Удаление дубликатов с промежуточными итогами или структурированных данных проблем

​временно скрыть всплывающее​ ячейке. Например, если​ Для удобства также​ Правила выделения ячеек/​Run «DuplicatesColoring»​ цветов- НО максимум​ проведения. Необходимо найти​ условия форматирования все​ Тогда проблема может​ четко определить и​ ячейку.​Результат: Excel выделил повторяющиеся​

Условное форматирование уникальных или повторяющихся значений

​ нужно удалить.​​. Вы можете выбрать​для отображения во​ структуры и промежуточные​.​ окно, выберите ячейку​

​ у вас есть​

​ приводим ссылку на​

​ Повторяющиеся значения…);​Run «ВыделитьДубликатыРазнымиЦветами»​ 55.​ одну из них,​

​ ссылки указываем на​​ возникнуть при обработке,​​ указать для Excel​​Поскольку прежде, чем нажать​​ имена.​​Совет:​​ более одного формата.​​ всплывающем окне​​ итоги. Для получения​​Чтобы быстро удалить все​​ на листе и​

​ то же значение​ оригинал (на английском​нажмите ОК.​

​Application.ScreenUpdating = True​

​Во втором цветов​

​ но неизвестны все​ первую строку таблицы.​ поиске данных или​ какие ячейки выделить.​

​ кнопку​​Примечание:​​Перед попыткой удаления​​ Форматы, которые можно​​Создание правила форматирования​​ дополнительных сведений отображается​​ столбцы, нажмите кнопку​​ нажмите кнопку​​ даты в разных​ языке) .​​Усложним задачу. Теперь будем​​End Sub​

​ задано немного -​ детали. Известно только,​

​Абсолютные и относительные адреса​ анализе в такой​​ Пример такой таблицы​​Условное форматирование​Если в первом​​ повторений удалите все​​ выбрать, отображаются на​

​.​ Структура списка данных​Снять выделение​​Развернуть​​ ячейках, один в​В Excel существует несколько​ выделять дубликаты только​БИТ​​ но можно добавлять​ ​ что транзакция проведена​​ ссылок в аргументах​​ таблице. Чтобы облегчить​ изображен ниже на​(Conditional Formatting), мы​ выпадающем списке Вы​ структуры и промежуточные​ панели​​Убедитесь, что выбран соответствующий​ на листе «и»​​.​​.​ формате «3/8/2006», а​​ способов фильтр уникальных​​ если установлен Флажок​

​: СПАСИБО. ​​ свои цвета и​​ во вторник или​​ функций позволяют нам​ себе работу с​​ рисунке:​

​ выбрали диапазон​​ выберите вместо​​ итоги из своих​​предварительного просмотра​​ лист или таблица​​ удалить промежуточные итоги.​​Если диапазон ячеек или​​Установите флажок​

​ другой — как​​ значений — или​​ «Выделить дубликаты» (ячейка​АЛЕКСАНДР1986​​ задавать их.​​ в среду. Чтобы​

​ распространять формулу на​ такими таблицами, рекомендуем​Данная таблица отсортирована по​A1:C10​Повторяющиеся​ данных.​​.​​ в списке​Примечание:​ таблица содержит много​только уникальные записи​ «8 мар «2006​​ удаление повторяющихся значений:​​B1​

Поиск и удаление повторений

​: Не подскажите я​БИТ​ облегчить себе поиск,​ все строки таблицы.​ автоматически объединить одинаковые​ городам (значения третьего​, Excel автоматически скопирует​(Duplicate) пункт​На вкладке​В некоторых случаях повторяющиеся​Показать правила форматирования для​

​ Условное форматирование полей в​ столбцов, чтобы выбрать​, а затем нажмите​

​ г. значения должны​​Чтобы фильтр уникальных значений,​)​ также использую эти​: отлично спасибки единственное​

​ выделим цветом все​​Вторая функция =СЦЕПИТЬ() по​​ строки в таблице​​ столбца в алфавитном​​ формулы в остальные​​Уникальные​​Данные​​ данные могут быть​​изменения условного форматирования,​

​ области «Значения» отчета​ несколько столбцов только​​кнопку ОК​​ быть уникальными.​ нажмите кнопку​выделите диапазон содержащий список​ макросы но они​​ не подскажите через​​ даты этих дней​

Удаление повторяющихся значений

​ очереди сложить значение​​ Excel, выделив их​​ порядке). Необходимо выделить​ ячейки. Таким образом,​(Unique), то Excel​нажмите кнопку​ полезны, но иногда​ начинается. При необходимости​ сводной таблицы по​

​ может проще нажмите​.​Установите флажок перед удалением​

​данных >​​ значений, например,​ почему-то у меня​ какую вкладку добавлять​ недели (вторник, среда).​ ячеек со всех​

​ цветом.​​ цветом строки каждой​​ ячейка​​ выделит только уникальные​​Удалить дубликаты​​ они усложняют понимание​​ выберите другой диапазон​ уникальным или повторяющимся​ кнопку​Уникальные значения из диапазона​

​ дубликаты:​Сортировка и фильтр >​B3:B16​ не работают не​ кнопки?​

​ Для этого будем​​ выделенных строк.​​Чтобы найти объединить и​​ второй группы данных​​A2​

​ имена.​​и в разделе​​ данных. Используйте условное​

Поиск дубликатов в Excel с помощью условного форматирования

​ ячеек, нажав кнопку​ значениям невозможно.​Снять выделение всех​ скопирует на новое​Перед удалением повторяющиеся​ Дополнительно​;​

1. ​ подскажите что я​​и можно ли​​ использовать условное форматирование.​
2. ​Обе выше описанные функции​​ выделить одинаковые строки​​ по каждому городу.​​содержит формулу:=СЧЕТЕСЛИ($A$1:$C$10;A2)=3,ячейка​​Как видите, Excel выделяет​​Столбцы​​ форматирование для поиска​Свернуть​Быстрое форматирование​​и выберите в разделе​​ место.​
3. ​ значения, рекомендуется установить​.​​вызовите Условное форматирование (Главная/​​ делаю не так?​​ немного изменить макрос​Выделите диапазон данных в​

​ работают внутри функции​​ в Excel следует​ Одна группа строк​A3​​ дубликаты (Juliet, Delta),​​установите или снимите​​ и выделения повторяющихся​​во всплывающем окне​Выполните следующие действия.​столбцы​

​При удалении повторяющихся значений​ для первой попытке​Чтобы удалить повторяющиеся значения,​ Стили/ Условное форматирование/​SLAVICK​ чтобы он охватывал​ таблице A2:B11 и​ =ЕСЛИ() где их​ выполнить несколько шагов​

1. ​ без изменений, следующая​:​
2. ​ значения, встречающиеся трижды​​ флажки, соответствующие столбцам,​​ данных. Это позволит​
3. ​относится к​​Выделите одну или несколько​​выберите столбцы.​​ на значения в​​ выполнить фильтрацию по​​ нажмите кнопку​​ Создать правило/ Использовать​: Вы не поместили​
4. ​ конкретный заданный диапозон​​ выберите инструмент: «ГЛАВНАЯ»-«Стили»-«Условное​ результаты сравниваются между​​ простых действий:​ цветная и так​=СЧЕТЕСЛИ($A$1:$C$10;A3)=3 и т.д.​
5. ​ (Sierra), четырежды (если​

​ в которых нужно​
​ вам просматривать повторения​

​ формулу для определения​

• ​ макрос :​ и поставить событие​​ форматирование»-«Создать правило».​​ собой. Это значит,​Выделите весь диапазон данных​
• ​ далее в этой​Обратите внимание, что мы​
• ​ есть) и т.д.​ удалить повторения.​​ и удалять их​​ Выберите новый диапазон​ таблице или отчете​​ Данные будут удалены из​​ таблице — единственный​ условное форматирование на​ данными​ форматируемых ячеек);​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Sub Worksheet_Change(ByVal Target​​ при изменении содержимого​​В появившемся окне «Создание​​ что в каждой​

​ табличной части A2:F18.​

​ ячеек на листе,​​ сводной таблицы.​ всех столбцов, даже​ эффект. Другие значения​ — для подтверждения​>​введите формулу =И(СЧЁТЕСЛИ($B$3:$B$16;$B3)>1;$B$1)​ As Range)​

​ любой ячейки в​
​ правила форматирования» выберите​

​ ячейке выделенного диапазона​ Начинайте выделять значения​
​ таблицы. Для этого:​
​ –​

​ чтобы выделить только​

Как найти и выделить цветом повторяющиеся значения в Excel

​ в столбце «Январь»​Выберите ячейки, которые нужно​ а затем разверните​На вкладке​ если вы не​ вне диапазона ячеек​ добиться таких результатов,​Удалить повторения​Обратите внимание, что в​On Error Resume​ данном диапозоне подсвечивание​ опцию: «Использовать формулу​ наступает сравнение значений​ из ячейки A2,​​

Как выделить повторяющиеся ячейки в Excel

​$A$1:$C$10​ те значения, которые​ содержатся сведения о​ проверить на наличие​ узел во всплывающем​Главная​ выбрали всех столбцов​ или таблице не​ предполагается, что уникальные​.​ формуле использована относительная​

​ Next​ автоматом перерисовыволось?​ для определения форматированных​ в текущей строке​ так чтобы после​Выделите диапазон ячеек A2:C19​.​ встречающиеся трижды:​ ценах, которые нужно​ повторений.​ окне еще раз​в группе​ на этом этапе.​

1. ​ значения.​Чтобы выделить уникальные или​ адресация, поэтому активной​
2. ​Set changeCell =​БИТ​ ячеек».​ со значениями всех​ выделения она оставалась​ и выберите инструмент:​Примечание:​
3. ​Сперва удалите предыдущее правило​ сохранить.​Примечание:​. Выберите правило​стиль​ Например при выборе​

​ переместить. При удалении​Выполните следующие действия.​ повторяющиеся значения, команда​ ячейкой при вводе​ Target​

​: И если можно​В поле ввода введите​ строк таблицы.​ активной как показано​ «ГЛАВНАЯ»-«Стили»-«Условное форматирование»-«Создать правило».​

Как найти одинаковые строки в Excel и выделить их цветом

​Вы можете использовать​ условного форматирования.​Поэтому флажок​ В Excel не поддерживается​ и нажмите кнопку​щелкните маленькую стрелку​ Столбец1 и Столбец2,​ повторяющихся данных, хранящихся​Выделите диапазон ячеек или​Условного форматирования​ формулы должна быть​Application.ScreenUpdating = False​ показать какая часть​ формулу:​Как только при сравнении​ ниже на рисунке.​В появившемся диалоговом окне​ любую формулу, которая​Выделите диапазон​Январь​ выделение повторяющихся значений​

Как объединить одинаковые строки одним цветом?

​Изменить правило​Условное форматирование​ но не Столбец3​ в первое значение​ убедитесь, что активная​

1. ​в группе​B3​Run «DuplicatesColoring»​ кода отвечает за​Нажмите на кнопку формат,​ совпадают одинаковые значения​ И выберите инструмент:​ выделите опцию: «Использовать​ вам нравится. Например,​A1:C10​
2. ​в поле​ в области «Значения»​, чтобы открыть​и затем щелкните​ используется для поиска​
3. ​ в списке, но​ ячейка находится в​
4. ​стиль​(т.е. диапазон нужно​Run «ВыделитьДубликатыРазнымиЦветами»​ определенный выделенный диапозон!​ чтобы задать цвет​ (находятся две и​ «ГЛАВНАЯ»-«Стили»-«Условное форматирование»-«Создать правило».​

​ формулу для определения​ чтобы выделить значения,​.​Удаление дубликатов​

​ отчета сводной таблицы.​

Как выбрать строки по условию?

​ всплывающее окно​Элемент правила выделения ячеек​ дубликатов «ключ» —​ других идентичных значений​ таблице.​на вкладке «​

​ выделять сверху вниз).​Application.ScreenUpdating = True​И какая часть​ заливки для ячеек,​ более одинаковых строк)​В появившемся окне «Создание​ форматируемых ячеек», а​ встречающиеся более 3-х​

​На вкладке​нужно снять.​На вкладке​Изменение правила форматирования​и выберите​

​ значение ОБА Столбец1​ удаляются.​Нажмите кнопку​Главная​

​ Активная ячейка в​End Sub​ кода отвечает за​ например – зеленый.​ это приводит к​ правила форматирования» выберите​ в поле ввода​ раз, используйте эту​Главная​Нажмите кнопку​Главная​

​.​Повторяющиеся значения​ & Столбец2. Если дубликат​Поскольку данные будут удалены​данные > Дополнительно​».​ выделенном диапазоне –​В модуль листа​ наступление события (если​ И нажмите на​ суммированию с помощью​ опцию: «Использовать формулу​

​ введите следующую формулу:$C3:$C20)+0);2)’​ формулу:​(Home) выберите команду​ОК​выберите​В разделе​.​ находится в этих​ окончательно, перед удалением​

​(​Фильтр уникальных значений и​ белая и ее​.​ значения в одной​ всех открытых окнах​ функции =СУММ() числа​ для определения форматированных​ >​=COUNTIF($A$1:$C$10,A1)>3​

Как найти и выделить дни недели в датах?

​Условное форматирование​.​Условное форматирование​выберите тип правила​Введите значения, которые вы​ столбцах, затем всей​ повторяющихся значений рекомендуется​в​ удаление повторяющихся значений​ адрес отображается в​Вот держите.​ ячейке в заданном​ кнопку ОК.​ 1 указанного во​ ячеек».​

1. ​Нажмите на кнопку «Формат»​=СЧЕТЕСЛИ($A$1:$C$10;A1)>3​>​Этот пример научит вас​
2. ​>​нажмите кнопку​ хотите использовать и​ строки будут удалены,​ скопировать исходный диапазон​
3. ​группа​ являются две сходные​
4. ​ поле Имя.​зы​ диапозоне поменяется то​Все транзакции, проводимые во​ втором аргументе функции​В поле ввода введите​ и на закладке​

​Урок подготовлен для Вас​Создать правило​ находить дубликаты в​

ВЫДЕЛЯТЬ ПОВТОРЯЮЩИЕСЯ ЗНАЧЕНИЯ (Формулы/Formulas)

​Правила выделения ячеек​​Форматировать только уникальные или​ нажмите кнопку Формат.​ включая другие столбцы​
​ ячеек или таблицу​Сортировка и фильтр​ задачи, поскольку цель​
​выберите нужное форматирование;​А что это​ заново запускается макрос​ вторник или в​
​ =ЕСЛИ(). Функция СУММ​
​ формулу: 1′ >​ заливка укажите зеленый​

​ командой сайта office-guru.ru​​(Conditional Formatting >​ Excel с помощью​
​>​ повторяющиеся значения​
​Расширенное форматирование​ в таблицу или​
​ в другой лист​).​ — для представления​
​нажмите ОК.​ у вас за​ и снова подсвечиваются​ среду выделены цветом.​ позволяет сложить одинаковые​

​Нажмите на кнопку формат,​​ цвет. И нажмите​Источник: http://www.excel-easy.com/examples/find-duplicates.html​ New Rule).​ условного форматирования. Перейдите​
​Повторяющиеся значения​.​Выполните следующие действия.​ диапазон.​ или книгу.​В поле всплывающего окна​ списка уникальных значений.​Сняв Флажок «Выделить дубликаты»​ диапазон такой: Range(«am532:b0781»)​

​ соответствующие значения)?​​БИТ​ строки в Excel.​ чтобы задать цвет​ ОК на всех​
​Перевел: Антон Андронов​Нажмите на​ по этой ссылке,​.​В списке​Выделите одну или несколько​Нажмите кнопку​Выполните следующие действия.​Расширенный фильтр​

​ Есть важные различия,​​ выделение повторяющихся значений​ ?​
​SLAVICK​
​: не подскажите как​
​Если строка встречается в​
​ заливки для ячеек,​​ открытых окнах.​Автор: Антон Андронов​Использовать формулу для определения​ чтобы узнать, как​В поле рядом с​
​Формат все​ ячеек в диапазоне,​
​ОК​Выделите диапазон ячеек или​
​выполните одно из​ однако: при фильтрации​
​ исчезнет.​(два раза верно​
​: Можно — для​
​ сделать если в​
​ таблице только один​
​ например – зеленый.​
​В результате мы выделили​

​Список с выделенным цветом​​ форматируемых ячеек​

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

Выделение дубликатов цветом

Допустим, что у нас имеется длинный список чего-либо и мы предполагаем, что некоторые элементы этого списка повторяются более 1 раза. Хотелось бы видеть эти повторы явно, т.е. подсветить дубликаты цветом. Сделать это в Excel можно несколькими разными способами.

Способ 1. Повторяющиеся ячейки

Выделяем все ячейки с данными и на вкладке Главная (Home) жмем кнопку Условное форматирование (Conditional Formatting) , затем выбираем Правила выделения ячеек — Повторяющиеся значения (Highlight Cell Rules — Duplicate Values) :

В появившемся затем окне можно задать желаемое форматирование (заливку, цвет шрифта и т.д.)

Способ 2. Выделение всей строки

Если хочется выделить цветом не одиночные ячейки, а сразу строки целиком, то придется создавать правило условного форматирования с формулой. Для этого выделяем все данные в таблице и выбираем Главная — Условное форматирование — Создать правило — Использовать формулу для выделения форматируемых ячеек (Home — Conditional formatting — Create rule — Use a formula to determine which cells to format) , а затем вводим формулу:

=СЧЁТЕСЛИ( $A$2:$A$20 ; $A2 )>1

• $A$2:$A$20 — столбец в данных, в котором мы проверяем уникальность
• $A2 — ссылка на первую ячейку столбца

Способ 3. Нет ключевого столбца

Усложним задачу. Допустим, нам нужно искать и подсвечивать повторы не по одному столбцу, а по нескольким. Например, имеется вот такая таблица с ФИО в трех колонках:

Задача все та же — подсветить совпадающие ФИО, имея ввиду совпадение сразу по всем трем столбцам — имени, фамилии и отчества одновременно.

Самым простым решением будет, конечно, добавить дополнительный служебный столбец (его потом можно скрыть) с текстовой функцией СЦЕПИТЬ (CONCATENATE) , чтобы собрать ФИО в одну ячейку:

Имея такой столбец мы, фактически, сводим задачу к предыдущему способу.

Если же хочется всё решить без дополнительного столбца, то формула для условного форматирования будет посложнее:

Ссылки по теме

Нашёл ответ сам. Нужно было всего лишь подождать, поскольку столбец длиный он долго собирал в контекстное меню параметры фиольтрации. Спасибо. Всё работает.

Николай, вот сделал специально для такой задачи макрос .

Спасибо огромное, Николай! Очень нужный макрос. Экономит кучу времени, которое можно тратить на велопрогулки.
Как Вы всё успеваете, даже ума не приложу! И надстройку допилить, и книгу написать, и работа, и дела домашние делать.
Книгу жду с нетерпением (шпаргалка с приёмами и горячими клавишами прочно обосновалась на столе в течение нескольких месяцев).

Вашим успехам радуюсь от души. Желаю написать многотомный бестселлер, перевести на несколько языков, создать свою корпорацию, вырастить несколько детей, находясь в гармонии с самим собой.

Виртуально жму Вам руку и желаю всяческих успехов.

Добрый день, подскажите, пожалуйста, возможно ли такое сравнение?
знаяения в одном столбце (можно и разделить, т.е. данные в скобках вынести во второй столбец), н-р.
Аптека 1 (ООО Фарм)
Аптека 1 (ОАО Годовалов)
Аптека 2 (ООО Фарм)
ООО Фарм

нужно оставить только одну строку с ООО Фарм, а строки Аптека 1 (ООО Фарм)
и Аптека 2 (ООО Фарм) удалить (выделить. )

1. Добрый день! Подскажите, а если мне нужно найденные одинаковые дубликаты просуммировать в месте и в отдельный столбец уже вывести результаты без дубликатов. Как это можно правильно реализовать?

Доброго времени суток! Вам, Есть надобность выделить белым цветом шрифт у каждого следующеего дубликата в ячейках столбца. Т.е. первое вхождение оставить ка есть, а во всех последующих повторах шрифт белый. При условии повторы считать только подряд до нового не равного предыдущуму значению. Потом, в столбце может быть встречено такое же вхождение как и первое.

Выделить всю таблицу, открыть Главная — Условное форматирование — Создать правило — Использовать формулу и ввести примерно так:

Добрый день! Скажите, а возможен поиск не 100%-ых дубликатов, а например 60% (и можно-ли менять этот показатель на 70-80-90% и т.д.)?

Проблема в том, что у меня 5 списков наименований (

10.000 каждый), которые создавались пятью разными людьми. Эти 5 человек по разному описывали один и тот-же товар
Пример:
— молоко
— «молоко»
— молоко.
— молако
— малако
Мне нужно соединить эти 5 списков в одну базу и найти дубликаты, но так как совпадение в моём случае не 100%, то и выделения тоже не происходит. Есть ли какое-то решение?

странно, у меня почему-то вариант с использованием функции «сцепить» не работает

самое интересное то, что пример я скачал, удаляю правила из ячеек, затем снова добавляю — и не работает.

Добрый день! Подскажите как установить счетчик повтора значения в ячейке. Например в формуле =ЕСЛИ(СЧЁТЕСЛИ(E$1:E2;E2)>1;»Повторно»;»Впервые»;) вместо «повторно» указывалось количество повторов (для втрого раза — 2, для третьего повтора -3 и т.д., а вместо «Впервые» — 1).

Разобрался (помог поиск по форуму): =ЕСЛИ(СЧЁТЕСЛИ(A$5:A$16;A5)>1;СЧЁТЕСЛИ(A$5:A5;A5);1)
Спасибо за сайт

Здравствуйте!
У меня стоит MS Office 2007. Пару лет назад при очередном обновлении Excel возникла проблема с правильным отображением дубликатов некоторых текстовых значений. С тех пор проблема не исчезла и наблюдается во всех последующих версиях Excel (проверяла), хотя до злополучного обновления всё работало нормально. Причем проблема эта наблюдается как в условном форматировании ячеек при попытке выделить повторяющиеся значения, так и в формулах, где идет проверка на совпадение значений. А теперь суть:
Привожу для наглядности пример. Ячейки А1:Е1 В отформатированы как текстовые, кроме того с условным форматированием повторяющихся значений. Четыре ячейки выделены как повторяющиеся. Excel воспринимает как одинаковые пары значений 1-02, 2-15 и 1-01, 1-01. Кроме того приведена формула на поиск соответствия в этом диапазоне текстовому значению 1-15. Формула выдает значение «Истина» (то есть подходящих ячеек в диапазоне как минимум должно быть две), при этом такого значения в диапазоне нет вообще! Причины такого поведения я раскрыла. Они наглядно отражены в таблице (колонки G:H). Колонка G отформатирована как текст, колонка H отформатирована как числа. Значения же в них вводились одинаковые, но в колонке H эти значения преобразовывались в числа, которые для значений 1-01 и 1-15 оказались одинаковыми, что тут же отразилось в поведении условного форматирования. Вот почему и формула выдает Истину, принимая значения 1-01 в строке равной значению 1-15.
Но ведь это неправильное поведение! Можно ли как-то решить эту проблему?

Николай, как я и говорила ранее, я отформатировала ячейки в диапазоне как текст. То есть я преобразовала эти псевдочисла в текстовой формат, разве нет? Что я еще должна была сделать, что бы Excel воспринимал значения 1-02, 6-15, 1-01 и проч. именно как текст?

Ответа не дождалась, но, думаю, проблема всё-таки в некорретной работе текстового форматирования. Некорректно она работает и в формульной части. Так в справке к функции «Текст» имеем следующее: » Функция ТЕКСТ преобразует число в форматированный текст, и результат больше не может быть использован в вычислениях в качестве числа.».
Простой пример: в ячейку А1 заношу любое числовое значение, например, 402. В ячейку А2 заношу простую формулу, призванную преобразить число в текст, который далее больше нельзя будет использовать при вычислениях: =ТЕКСТ(A1;»0″ ) Получаем результат 402, сдвинутый к левому краю ячейки, что вроде бы должно нас убедить, что это теперь текст. Далее в ячейку А3 ввожу формулу: =A2+2 и в результате, вуаля, получаем 407!
Как я уже говорила, такая политика в форматировании появилась пару лет назад и сразу во всех вариантах Офиса. До тех пор текст это был именно текст, как бы он не выглядел. Отсюда и проблемы. Правильно ли я понимаю, что в настоящее время решить эту ситуацию никак нельзя?

День добрый!
Может кто сталкивался и знает, что с этим делать.
Есть таблица, в одном столбце действует правило выделение дубликатов. Когда в ячейке этого столбца вводишь число, которое точно в этом столбце есть, то ячейка выделяется, т.е. все работает, как и должно.
Но если копируешь строку из этой таблицы, и вставляешь ниже (чтобы не заполнять заново другие ячейки), то правило работать перестает.
Вот так правило выглядит до вставки новой строки —

А вот как правило начинает выглядеть после вставки строки —

Я так понимаю, что почему-то правило начинает ограничиваться новой строкой, но почему? И если правило применяется до 940 строки, а новая строка как раз имеет этот номер, то почему оно в ней не меняет цвет, хоть там и дубль?
Если просто вставить пустую строку, то все ок, правило не меняется.

Подскажите пожалуйста, такой момент.
В таблице 60 000 строк текстовых фраз, среди которых есть дубликаты. В соседнем столбце через формулу СЧЁТЕСЛИ вывожу сколько раз каждая фраза встречается. Для первой строки проблем никаких нет, формула цифру выдаёт. А вот когда я растягиваю формулу до конца таблицы, то вначале таблицы она ещё срабатывает, то есть выдаёт верную цифру, а в дальнейшем (начиная с середины таблицы и до конца) показывает одну и туже цифру. То есть складывается ощущение, что ексель не справляется с расчетом и выдаёт некую цифру. Что самое интересное, если по этим одинаковым цифрам ещё раз растянуть формулу, то цифры обновятся на корректные.
Для информации: вычисление стоит автоматически, ошибок в формуле нет (перепроверил эти моменты по 100 раз).

Давно ищу ответ на вопрос: как подсветить повторяющиеся данные в списках данных, имеющих одинаковое начало, но разное окончание. Стандартная функция работает в данном случае некорректно. Вот, например, значения 1025500277315000046 и 1025500277315000127 и т.д. (см. скриншот). Начинаются одинаково и excel их высвечивает как одинаковые. В данном случае это реестровые номера контрактов с сайта госзакупок. И мне нужно чтобы excel подсвечивал только уникальные значения, а не частично похожие.

Доброго времени суток, повелители формул!
Уперся тоже в эту проблему, поиск дубликатов работает нормально, но только до 15 знака, после 15 знака СЧЁТЕСЛИ «видит» нули и воспринимается значение как совпадение, а это ни есть «истина». Использую формулу =СЧЁТЕСЛИМН($B$5:$B$2723;$B5;$E$5:$E$2723;$E5)>1 в условном форматировании, т.е. поиск ведется по двум условиям (хотя это не так важно сейчас). И, таки да, формат ячейки текстовый, потому как значения могут начинаться с нуля, Excel 2016.
Есть ли решение этой проблемы? На просторах инета предложений с таким случаем не нашел.
У Алекскй Иванов решение вроде есть, но он не отвечает. Да и не правильно это, решение должно быть доступно для всех

У меня работает как формула условного форматирования, подсвечивает дубликаты на ICC сим-карт (20 цифр как текст).

Ох, ужас какой А на выходе вам нужно что получить? Список всех людей без повторов? Или понимать, кто участвует больше чем в одной конференции?

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

Условное форматирование в принципе работает, то есть при введении существующего лота, excel сразу же закрашивает его цветом.
Но хотелось бы узнать есть ли еще какие то способы?

Не могу понять почему знак $ перед буквой ячейки выделяет цветом все три ячейки ФИО, а если без $ то только ячейки в первом столбце?

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

Мой преподаватель думал что это видимо просто, но это очень не просто(. Не хочу долг получить по предмету, вырачайте.

Макрос для выделения дубликатов разными цветами ⁠ ⁠

Как известно, чтобы выделить дубликаты цветом в Excel можно воспользоваться специальной опцией в «условном форматировании».

Достаточно выделить диапазон, задать цвет заливки, — и все повторяющиеся (или, наоборот, уникальные) значения будут выделены.

Но иногда требуется, чтобы различные повторяющиеся значения были выделены РАЗНЫМИ ЦВЕТАМИ.

В этом случае, без макросов не обойтись. Нажимаем сочетание клавиш Alt+F11 или кнопку Visual Basic на вкладке Разработчик (Developer), вставляем новый пустой модуль через меню Insert — Module и копируем туда код этого макроса:

Sub ВыделитьДубликатыРазнымиЦветами()

On Error Resume Next

‘ массив цветов, используемых для заливки ячеек-дубликатов

Colors = Array(12900829, 15849925, 14408946, 14610923, 15986394, 14281213, 14277081, _

9944516, 14994616, 12040422, 12379352, 15921906, 14336204, 15261367, 14281213)

Dim coll As New Collection, dupes As New Collection, _

cols As New Collection, ra As Range, cell As Range, n&

Err.Clear: Set ra = Intersect(Selection, ActiveSheet.UsedRange)

If Err Then Exit Sub

ra.Interior.ColorIndex = xlColorIndexNone: Application.ScreenUpdating = False

For Each cell In ra.Cells ‘ запонимаем значение дубликатов в коллекции dupes

Err.Clear: If Len(Trim(cell)) Then coll.Add CStr(cell.Value), CStr(cell.Value)

If Err Then dupes.Add CStr(cell.Value), CStr(cell.Value)

Next cell

For i& = 1 To dupes.Count ‘ заполняем коллекцию cols цветами для разных дубликатов

n = n Mod (UBound(Colors) + 1): cols.Add Colors(n), dupes(i): n = n + 1

Next

For Each cell In ra.Cells ‘ окрашиваем ячейки, если для её значения назначен цвет

cell.Interior.color = cols(CStr(cell.Value))

Next cell

Application.ScreenUpdating = True

End Sub

Теперь можно выделить любой диапазон с данными на листе и запустить макрос с помощью сочетания клавиш Alt+F8 или через кнопку Макросы (Macros) на вкладке Разработчик (Developer).

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

635 постов 14.5K подписчиков

Правила сообщества

2. Публиковать посты соответствующие тематике сообщества

3. Проявлять уважение к пользователям

4. Не допускается публикация постов с вопросами, ответы на которые легко найти с помощью любого поискового сайта.

По интересующим вопросам можно обратиться к автору поста схожей тематики, либо к пользователям в комментариях

Важно — сообщество призвано помочь, а не постебаться над постами авторов! Помните, не все обладают 100 процентными знаниями и навыками работы с Office. Хотя вы и можете написать, что вы знали об описываемом приёме раньше, пост неинтересный и т.п. и т.д., просьба воздержаться от подобных комментариев, вместо этого предложите способ лучше, либо дополните его своей полезной информацией и вам будут благодарны пользователи.

Утверждения вроде «пост — отстой», это оскорбление автора и будет наказываться баном.

Круто. Вот VBA все таки понятный язык. Меня тут подрядили для опенофис макросы написать, я уже запарился пока редактор макросов нашел. А в экселе все просто и понятно. Красота.

Спасибо тебе огромное!

Хорошо то как.
Цветов бы побольше, а то повторяются быстро.

а для google exel такого макроса нет?

Раз уж тут интересные фишки в Excel рассказывают новичкам, хочу спросить.

Есть файлы xml, из элементов которых нужно вытащить информацию и составить из них таблицу.

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

Power Query не всегда подходит для данной задачи, т.к. если один файл из, скажем, тысячи, будет иметь несколько иную структуру, чем PQ составил так, как он это понимает, то таблица не выстроится, на этом файле покажет ошибку в редакторе запроса.

Импорт XML тоже не подходит, т.к. с ним удобно работать, если файл один.

Вопрос такой от новичка: какие порекомендовали бы ресурсы для изучения макросов на данном направлении, в частности, по преобразованию xml документов в DomDocument и последующего извлечения информации оттуда?

EXCEL — ЭТИ СТРАШНЫЕ МАКРОСЫ – НАЧАЛО⁠ ⁠

Я решил с двух ног ворваться в тему макросов.

Кто-то про них слышал, кто-то даже видел, отдельные сверхразумы их даже использовали. Сегодня будет ознакомительный пост: что это вообще такое и как с этим начать работать. Обратите внимание – этот пост тех, кто не знает, что такое макросы и никогда с ними не работал

Первым делом нужно включить вкладку «Разработчик». По умолчанию в Excel ее спрятали, чтобы не взорвать мозг юзерам. Идем в Параметры -> Настройка ленты -> Основные вкладки -> Разработчик (поставить галочку).

Теперь идем в эту вкладку, нажимаем «Записать макрос» выбираем имя жмакаем «ок». Все, теперь любые действия в Excel надежным образом записываются.

Давайте теперь что-то сделаем. На пример поменяем заливку ячейки А1, в ячейку A2 напишем значение «Мама, я программист», а в ячейке А3 пропишем формулу текущей даты «=Сегодня()»

Останавливаем запись макроса. Нажимаем иконку «Макросы», выбираем наш макрос как мы его обозвали, нажимаем кнопку «изменить».

Появляется окно Microsoft Visual Basic for Applications. Кстати оно также вызывается комбинацией клавиш (Alt + F11) У меня почему-то вызывается только левым Altом, а правым нет, видимо намекая на то что для написания макросов лучше иметь 2 руки (хотя я и одной нажать могу). Появился редактор языка VBA – это язык, который написан специально под офис чтобы на нем писать макросы. В основном окне видим саму эту запись, которую автоматически сделал Excel.

Sub Макрос2()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range(«A2»).Select
ActiveCell.FormulaR1C1 = «Мама, я программист»
Range(«A3»).Select
ActiveCell.FormulaR1C1 = «=TODAY()»
Range(«A4»).Select
End Sub

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

Теперь давайте разбираться что делает этот макрос

Sub Макрос2()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With

(Весь этот кусок от начала говорит нам о том, что с тем элементом что был выделен ранее происходит некоторое дерьмо, в том числе изменение цвета. Вот там, где Color = 255. Все остальное это параметры заливки, которые по итогу не менялись, но макрорекордер решил их тоже записать, на всякий. Это связано с внутренними особенностями работы excel как я понял. Вообще привыкайте к тому что макрорекордер пишет много того что потом вообще можно удалить. Конструкция With – End With позволяет делать несколько действий с одним объектом, на пример выше берется объект Selection.Interior, то есть фон выбранной области и ряду параметров этой заливки назначаются конкретные значения. То есть With нужен для облегчения записи кода, чтобы Selection.Interior не писать вначале каждой строчки.

Range(«A2»).Select –выделяем ячейку «A2»
ActiveCell.FormulaR1C1 = «Мама, я программист» – пишем в ячейку значение
Range(«A3»).Select – выделяем ячейку «А3»
ActiveCell.FormulaR1C1 = «=TODAY()» –пишем в ячейку формулу
Range(«A4»).Select – зачем то выделяем ячейку А4.
End Sub

Теперь при создании нового листа и запуске этого макроса он будет делать все то же самое.

Тут стоит понимать, что половину того что записал макрос можно опустить, так как нам важен результат, а не путь по которому к этому результату пришли, а макрорекордер записывает именно путь. На пример вместо всей конструкции With можно записать

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

Range(“A2”).Value = ”Мама, я программист”

или писать формулу как в третей ячейке

С формулами и значениями лично мне не понятно, как excel их интерпретирует, но в макрорекордре он записывает любой ввод в ячейку как ввод формулы. Благо лично у меня при написании макросов не возникает необходимости писать формулы в ячейки. На пример вместо вставки формулы как это было выше можно написать Range(“A3”).Value = Date(), тогда макрос вставит сразу текущую дату в ячейку как значение.

Опытные макроделы пишут макросы сразу без их записи макрорекордером, но это полезный инструмент для самостоятельного изучения при написании макросов: если не знаешь, что как делается в VBА то запускаешь и делаешь, потом смотришь что он там написал.

Теперь давайте напишем какой ни будь полезный макрос, я буду писать строчки и как можно подробнее их комментировать. Комментарии от программы отделяются символом «‘», он ставится вначале комментария. Прошу учесть, что я самоучка и многого не знаю, и просто напишу так ка делаю это сам, возможно есть более изящные решения. Напоминаю, что это просто ознакомительный опус для тех, кто не в зуб ногой.

Sub Colorization()
‘начало нашего макроса и его название
Dim x As Integer
‘объявляем переменную х типа интеджер, это тип для целых чисел от -32 768 до 32 767 (2 байта),
‘она нам нужна для перебора ячеек
For x = 1 To ActiveSheet.UsedRange.Rows.Count
‘перебираем х от 1 до конца использованной части листа, то есть не весь лист, а там где есть данные.
‘Тут цикл For повторяется от этой строки до строки Next x, которая прописана ниже
If Cells(x, 1).Value = «красный» Then Cells(x, 1).Interior.Color = RGB(255, 0, 0)
‘если значение в ячейке равно «красный» то закрашиваем ячейку в красный цвет. Функция If выполняет часть
‘после Then если условие между If и Then верно. Так как у нас необходимое действие занимает одну
‘строку можно писать в таком виде, если же действий несколько применяется конструкция:
‘If … Then
‘…
‘…
‘End If
If Cells(x, 1).Value = «зеленый» Then Cells(x, 1).Interior.Color = RGB(0, 255, 0)
‘как выше только в зеленый цвет
If Cells(x, 1).Value = «синий» Then Cells(x, 1).Interior.Color = RGB(0, 0, 255)
‘в синий цвет
Next x ‘берем следующее значение х, конец цикла For, который мы начали выше
End Sub ‘конец макроса
Как работает этот макрос: берет первый столбец, сначала 1 ячейку, смотрит что в ней написано, и если это равно «красный», «зеленый» или «синий», то красит фон ячейки в этот цвет, если нет по пропускает. Потом берет вторую и т. д. до конца активной части текущего листа.
Для проверки работы макроса нам нужен лист, где в первом столбце будут случайным образом прописаны цвета «красный», «зеленый», «синий». Запускаем макрос – когда он отработает ячейки будут раскрашены:

Некоторые пояснения: если не писать просто Cells то макрос будет делать все в активном листе активного окна. Но макрос может идти и в другие листы, файлы, даже в другие приложения офиса, но об этом не сегодня.

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

Итак, на этом пока все. Надеюсь теперь те, кто никогда не видел макросов получат о них начальное представление. Дальше буду писать про более практичное применение.

Как выделить повторяющиеся значения в excel разными цветами

В Excel мы можем легко выделить повторяющиеся значения в столбце одним цветом с помощью Условное форматирование, но иногда нам нужно выделить повторяющиеся значения разными цветами, чтобы быстро и легко распознать дубликаты, как показано на следующем снимке экрана. Как бы вы могли решить эту задачу в Excel?

Выделите повторяющиеся значения в столбце разными цветами с помощью кода VBA

Фактически, у нас нет прямого способа завершить эту работу в Excel, но приведенный ниже код VBA может вам помочь, пожалуйста, сделайте следующее:

1. Выберите столбец значений, дубликаты которых вы хотите выделить разными цветами, затем удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: выделите повторяющиеся значения разными цветами:

3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и окно подсказки напомнит вам выбрать диапазон данных, в котором вы хотите выделить повторяющиеся значения, см. снимок экрана:

4. Затем нажмите OK кнопку, все повторяющиеся значения были выделены разными цветами, см. снимок экрана:

Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

• Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма .
• Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон .
• Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы . Предотвращение дублирования ячеек; Сравнить диапазоны .
• Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор .
• Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули , Флажки и многое другое .
• Извлечь текст , Добавить текст, Удалить по позиции, Удалить пробел ; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии .
• Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом .
• Комбинируйте книги и рабочие листы ; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов ; Пакетное преобразование xls, xlsx и PDF . Pivot Table Grouping by week number, day of week and more. Show Unlocked, Locked Cells by different colors; Highlight Cells That Have Formula/Name . —>
• Более 300 мощных функций . Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint , Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Есть ли способ сделать так, чтобы это влияло только на выделенный столбец, а не на всю строку? Некоторые из смелых красных и синих цветов трудно разглядеть по всей таблице. Спасибо

Sub BuscarD()
Dim xRg как диапазон
Dim xTxt как строка
Dim xCell как диапазон
Dim xChar как строка
Dim xCellPre как диапазон
Dim xCol как коллекция
Дим я пока
Dim J как целое число
Dim K как целое число
Dim xCLR как целое число

On Error Resume Next
Если ActiveWindow.RangeSelection.Count > 1 Тогда
xTxt = ActiveWindow.RangeSelection.AddressLocal
Еще
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox(«Выбор рангом для оценки:», «Дубликаты автобусов», xTxt, , , , , 8)
Если xRg ничего не значит, выйдите из Sub
J = 0
K = 0
Установите xCol = Новая коллекция
Для каждой xCell в xRg
On Error Resume Next
xCol.Добавить xCell, xCell.Text
Если Номер Ошибки = 457 Тогда
Установить xCellPre = xCol(xCell.Text)
Если xCellPre.Interior.ColorIndex = xlNone Тогда
xCellPre.Interior.Color = RGB(255, J, K)
xCell.Interior.Color = RGB(255, J, K)
Если K + xCLR <= 255 Тогда
К = К + хCLR
Еще
Если J + xCLR <= 255 Тогда
K = 0
J = J + xCLR
Еще
MsgBox «!Demasiados datos duplicados!: Reducir переменная xCLR», vbCritical, «Ошибка»
Exit Sub
End If
End If
Еще
xCell.Interior.Color = xCellPre.Interior.Color
End If
ElseIf Err.Number = 9 Тогда
MsgBox «Дублирование повторяющихся данных!», vbCritical, «Ошибка»
Exit Sub
End If
По ошибке GoTo 0
Далее

Es ип тема viejo, pero lo dejo por si alguien lo necesita. Con el código anterior y modificando la variable «xCLR», от 1 до 255, можно получить от 4 до 65.000 255 различных цветов. En mi caso, configuré el rojo del RGB con un valor estático de 255 y vario los valores verde y azul (166, X, X). Si se requieren mas colores, se podría alterar el valor del rojo, logrando mas de XNUMXmillones de colores diferentes