В excel найти строки одного цвета - Word и Excel - помощь в работе с программами

На чтение 3 мин Просмотров 4.4к. Опубликовано 25.11.2021

Содержание

Пример использования
Сортировка по цвету ячеек
Фильтр по цвету ячеек

Функция =ЦВЕТЗАЛИВКИ(ЯЧЕЙКА) возвращает код цвета заливки выбранной ячейки. Имеет один обязательный аргумент:

ЯЧЕЙКА — ссылка на ячейку, для которой необходимо применить функцию.

Ниже представлен пример, демонстрирующий работу функции.

Следует обратить внимание на тот факт, что функция не пересчитывается автоматически. Это связано с тем, что изменение цвета заливки ячейки Excel не приводит к пересчету формул. Для пересчета формулы необходимо пользоваться сочетанием клавиш Ctrl+Alt+F9

Пример использования

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

С помощью функции ЦВЕТЗАЛИВКИ все это становится выполнимым. Например, «протяните» данную формулу с цветом заливки в соседнем столбце и производите вычисления на основе числового кода ячейки.

Создатели Excel решили, начиная от 2007-ой версии ввести возможность сортировки данных по цвету. Для этого послужило поводом большая потребность пользователей предыдущих версий, упорядочивать данные в такой способ. Раньше реализовать сортировку данных относительно цвета можно было только с помощью создания макроса VBA. Создавалась пользовательская функция и вводилась как формула под соответствующим столбцом, по которому нужно было выполнить сортировку. Теперь такие задачи можно выполнять значительно проще и эффективнее.

Сортировка по цвету ячеек

Пример данных, которые необходимо отсортировать относительно цвета заливки ячеек изображен ниже на рисунке:

Чтобы расположить строки в последовательности: зеленый, желтый, красный, а потом без цвета – выполним следующий ряд действий:

Щелкните на любую ячейку в области диапазона данных и выберите инструмент: «ДАННЫЕ»-«Сортировка и фильтр»-«Сортировка».

Убедитесь, что отмечена галочкой опция «Мои данные содержат заголовки», а после чего из первого выпадающего списка выберите значение «Наименование». В секции «Сортировка» выберите опцию «Цвет ячейки». В секции «Порядок» раскройте выпадающее меню «Нет цвета» и нажмите на кнопку зеленого квадратика.

Нажмите на кнопку «Копировать уровень» и в этот раз укажите желтый цвет в секции «Порядок».

Аналогичным способом устанавливаем новое условие для сортировки относительно красного цвета заливки ячеек. И нажмите на кнопку ОК.

Ожидаемый результат изображен ниже на рисунке:

Аналогичным способом можно сортировать данные по цвету шрифта или типу значка которые содержат ячейки. Для этого достаточно только указать соответствующий критерий в секции «Сортировка» диалогового окна настройки условий.

Фильтр по цвету ячеек

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

Перейдите на любую ячейку диапазона и воспользуйтесь инструментом: «ДАННЫЕ»-«Сортировка и фильтр»-«Фильтр».

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

Из всплывающего подменю выберите зеленый цвет.

В результате отфильтруються данные и будут отображаться только те, которые содержать ячейки с зеленым цветом заливки:

Обратите внимание! В режиме автофильтра выпадающие меню так же содержит опцию «Сортировка по цвету»:

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

Источник

Достаточно часто рабочие таблицы Excel содержат повторяющиеся записи, которые многократно дублируются. Но не всегда повторение свидетельствует об ошибке ввода данных. Иногда несколько раз повторяющиеся записи с одинаковыми значениями были сделаны намеренно. Тогда проблема может возникнуть при обработке, поиске данных или анализе в такой таблице. Чтобы облегчить себе работу с такими таблицами, рекомендуем автоматически объединить одинаковые строки в таблице Excel, выделив их цветом.

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

Чтобы найти объединить и выделить одинаковые строки в Excel следует выполнить несколько шагов простых действий:

Выделите весь диапазон данных табличной части A2:F18. Начинайте выделять значения из ячейки A2, так чтобы после выделения она оставалась активной как показано ниже на рисунке. И выберите инструмент: «ГЛАВНАЯ»-«Стили»-«Условное форматирование»-«Создать правило».

В появившемся окне «Создание правила форматирования» выберите опцию: «Использовать формулу для определения форматированных ячеек».

В поле ввода введите формулу:

Нажмите на кнопку формат, чтобы задать цвет заливки для ячеек, например – зеленый. И нажмите на всех открытых окнах кнопку ОК.

В результате выделились все строки, которые повторяются в таблице хотя-бы 1 раз.

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

Форматирование для строки будет применено только в том случаи если формула возвращает значения ИСТИНА. Принцип действия формулы следующий:

Первая функция =СЦЕПИТЬ() складывает в один ряд все символы из только одной строки таблицы. При определении условия форматирования все ссылки указываем на первую строку таблицы.

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

Вторая функция =СЦЕПИТЬ() по очереди сложить значение ячеек со всех выделенных строк.

Обе выше описанные функции работают внутри функции =ЕСЛИ() где их результаты сравниваются между собой. Это значит, что в каждой ячейке выделенного диапазона наступает сравнение значений в текущей строке со значениями всех строк таблицы.

Как только при сравнении совпадают одинаковые значения (находятся две и более одинаковых строк) это приводит к суммированию с помощью функции =СУММ() числа 1 указанного во втором аргументе функции =ЕСЛИ(). Функция СУММ позволяет сложить одинаковые строки в Excel.

Если строка встречается в таблице только один раз, то функция =СУММ() вернет значение 1, а целая формула возвращает – ЛОЖЬ (ведь 1 не является больше чем 1).

Если строка встречается в таблице 2 и более раза формула будет возвращать значение ИСТИНА и для проверяемой строки присвоится новый формат, указанный пользователем в параметрах правила (заливка ячеек зеленым цветом).

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

Допустим таблица содержит транзакции с датами их проведения. Необходимо найти одну из них, но неизвестны все детали. Известно только, что транзакция проведена во вторник или в среду. Чтобы облегчить себе поиск, выделим цветом все даты этих дней недели (вторник, среда). Для этого будем использовать условное форматирование.

Выделите диапазон данных в таблице A2:B11 и выберите инструмент: «ГЛАВНАЯ»-«Стили»-«Условное форматирование»-«Создать правило».

В появившемся окне «Создание правила форматирования» выберите опцию: «Использовать формулу для определения форматированных ячеек».

В поле ввода введите формулу:

Нажмите на кнопку формат, чтобы задать цвет заливки для ячеек, например – зеленый. И нажмите на всех открытых окнах кнопку ОК.

Все транзакции, проводимые во вторник или в среду выделены цветом.

Источник

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

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

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

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

Как подсветить дубликаты, используя встроенный инструмент
Как выделить дубликаты без учета 1-го вхождения
Как показать 3-й, 4-й и все последующие дубликаты?
Выделяем повторяющиеся значения в диапазоне
Выделение строки целиком на основе дубликатов в определённой колонке
Выделение дублирующихся строк
Подсветка последовательных дубликатов ячеек
Как выделить дубликаты в Excel с помощью специального инструмента и без формул

Далее в этом руководстве вы найдете несколько способов выделения дубликатов записей в зависимости от конкретной задачи. Эти методы работают во всех версиях Excel 2016, Excel 2013, Excel 2010 и ниже.

Как подсветить дубликаты, используя встроенный инструмент (с 1-м появлением)

Для начала, во всех версиях Excel есть заготовка для выделения дублирующих ячеек. Чтобы использовать это её в своих таблицах, выполните следующие действия:

Выберите данные, которые вы хотите проверить. Это может быть колонка, строка или диапазон ячеек.
На вкладке « Главная » выберите « Условное форматирование» > «Правила выделения ячеек» > «Повторяющиеся значения».

Откроется диалоговое окно с форматом «Светло-красная заливка» и «Темно-красный текст», выбранными по умолчанию. Чтобы применить формат по умолчанию, просто нажмите ОК.

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

И вот что мы получили в итоге:

Как видим, повторов оказалось очень много. Применяя встроенное правило дублирования к двум или более столбцам, Excel не сравнивает значения в них, а просто выделяет все дублирующиеся экземпляры. Для работы со всей таблицей или для сравнения столбцов вряд ли этот метод вам подойдет. А вот для поиска в одной колонке или строке – вполне хорош.

При использовании этого инструмента имейте в виду следующие две вещи:

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

Как выделить повторы без 1-го вхождения

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

Выберите «Условное форматирование» > « Новое правило»> «Использовать формулу», чтобы определить ячейки для форматирования .
В поле « Форматировать значения», где эта формула возвращает ИСТИНА , введите:

=СЧЕТЕСЛИ($B$2:$B2;$B2)>1

Где B2 — самая верхняя ячейка выбранного диапазона.

Нажмите кнопку «Формат» выберите нужный цвет заливки и/или шрифта.
Наконец, нажмите кнопку ОК, чтобы сохранить и применить созданное.

Если у вас нет большого опыта работы с условным форматированием Excel, вы найдете подробные инструкции по созданию правила на основе формул в следующем руководстве: Как изменить цвет ячейки в зависимости от значения?

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

Как показать третий, четвертый и все последующие дубликаты?

Чтобы просмотреть повторяющиеся значения, начинающиеся с N-го вхождения, действуйте как в предыдущем примере. С той лишь разницей, что вы заменяете > 1 в конце формулы на требуемое число. Например:

Чтобы раскрасить третий и все последующие повторы, примените это:

=СЧЕТЕСЛИ($B$2:$B2;$B2)>=3

Чтобы указать на 4-е и все последующие повторяющиеся записи, используйте выражение:

=СЧЕТЕСЛИ($B$2:$B2;$B2)>=4

Чтобы выделить только определенные вхождения, используйте оператор равенства (=).

Например, чтобы изменить фон только 2-х экземпляров, вы должны использовать следующую формулу:

=СЧЕТЕСЛИ($B$2:$B2;$B2)=2

Как выделить дубликаты в диапазоне

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

Выделите дубликаты в таблице, включая 1-е вхождение.

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

Или создайте своё условное форматирование:

=СЧЕТЕСЛИ(диапазон, первая_ячейка)> 1

Например, чтобы отметить цветом совпадения в диапазоне A2: C8, сделайте это следующим образом:

=СЧЕТЕСЛИ($A$2:$C$8, A2)>1

Обратите внимание на использование абсолютных ссылок на ячейки для диапазона ($A$2:$C$8) и относительных ссылок для верхней ячейки (A2).

Выделите повторы в таблице без 1-го вхождения.

Решение для этого сценария намного сложнее. Не удивительно, что в Excel нет для него готового решения

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

Правило 1. Относится к первому столбцу.

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

В этом примере мы применяем для A2: A11 условие:

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

В результате дублирующие элементы без 1- ^го вхождения выделяются в крайнем левом столбике диапазона (в нашем случае есть только два таких элемента):

Правило 2. Относится ко всем последующим колонкам

Чтобы выделить дубликаты в оставшихся данных (B2: C11), используйте следующую формулу:

=СЧЁТЕСЛИ(A$2:$A$11;B2)+СЧЁТЕСЛИ(B$2:B2;B2)>1

В приведенной выше формуле первая функция СЧЕТЕСЛИ подсчитывает вхождения данного элемента в первом столбце, а второй СЧЕТЕСЛИ делает то же самое для всех последующих. Затем вы складываете эти числа и проверяете, больше ли сумма, чем 1.

В результате все дублированные элементы, за исключением их 1- ^го вхождения, будут найдены и выделены:

Выделение целых строк на основе повторяющихся значений в одной колонке.

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

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

Чтобы выделить дублирующиеся строки, исключая первые вхождения:

=СЧЁТЕСЛИ($B$2:$B2;$B2)>1

Выделяем строки с одинаковыми наименованиями товаров (столбец B)

Чтобы выделить повторяющиеся строки, включая все вхождения:

= СЧЁТЕСЛИ ($B$2:$B$17;$B2)>1

Здесь B2 — первая ячейка, а B17 — последняя, которую вы хотите проверить на наличие дублей.

Как видите, разумное использование абсолютных и относительных ссылок имеет значение.

Как выделить дублирующиеся строки.

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

Для этого используйте функцию СЧЁТЕСЛИМН, которая позволяет сравнивать по нескольким критериям. Например, чтобы выделить строки с одинаковыми значениями в B и C, то есть найти заказы одного и того же товара одним заказчиком, используйте одну из следующих формул:

Чтобы выделить совпадающие, кроме 1-го вхождения :

=COUNTIFS($A$2:$A2, $A2, $B$2:$B2, $B2)>1

Обратите внимание, что форматирование мы применяем ко всей таблице.

Чтобы выделить все неуникальные:

=СЧЁТЕСЛИМН($B$2:$B$17; $B2; $C$2:$C$17; $C2)>1

Как вы понимаете, приведенный выше пример только для демонстрационных целей. При выделении дублирующихся строк в ваших реальных таблицах вы, естественно, не ограничены сравнением значений только в 2 столбцах. Функция СЧЁТЕСЛИМН может обрабатывать до 127 пар диапазон / критерий.

Подсветка последовательных дубликатов ячеек.

Иногда вам может не потребоваться выделять все дубликаты в таблице, а отображать только последовательные, то есть те, которые расположены рядом друг с другом.

Для этого выберите область с данными (не включая заголовок) и создайте условное форматирование с одной из следующих формул:

Чтобы выделить два идущих друг за другом заказа одного и того же менеджера:

=ИЛИ($G1=$G2;$G2=$G3)

Чтобы выделить второй заказ менеджера, если у него 2 заказа идут подряд:
=$G1=$G2

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

при выделении только второго повтора

=И($G2<>»»; $G1=$G2)

при выделении обоих дублей:

=И($G2<>»»; ИЛИ($G1=$G2;$G2=$G3))

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

Как выделить дубликаты в Excel с помощью инструмента Duplicate Remover.

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

Несмотря на своё название, программа умеет быстро выделять дубликаты разными цветами, не удаляя их.

Средство удаления дубликатов добавляет к вашей ленте Excel три новых функции:

Quick Dedupe (быстрое удаление дубликатов) – быстро в пару кликов найти и выделить дубликаты в таблице.
Duplicate Remover (удаление дубликатов) – пошаговый мастер с расширенными параметрами для выявления и выделения дубликатов или уникальных значений в таблице.
Compare Two Sheets (сравнить таблицы) – найти и выделить дубликаты, сравнивая два столбца или две отдельные таблицы.

После установки Ultimate Suite for Excel вы найдете эти инструменты на вкладке Ablebits Data.

Как выделить дубликаты в Excel за пару кликов

Для этого примера я создал простую таблицу с тремя колонками. И наша цель — выделить повторяющиеся строки, которые имеют одинаковые значения во всех трех столбцах:

Вы не поверите, но желаемый результат можно получить всего за 2 клика мыши

Выделив любую ячейку в таблице, используйте кнопку Quick Dedupe на ленте Excel.
Откроется диалоговое окно, в котором все столбцы для поиска дублей будут выбраны автоматически.

В правом нижнем углу в выпадающем списке нужно выбрать Выделить цветом (Highlight with color). Теперь все, что вам нужно сделать, это нажать ОК Готово!

Совет. Если вы хотите искать повторяющиеся строки по одному или нескольким столбцам, а не по всем, то снимите отметки со всех нерелевантных столбцов и оставьте выбранными только ключевые столбцы.
Результат будет примерно таким:

Как вы видите на изображении выше, инструмент выделил повторяющиеся строки без первых экземпляров.

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

Как выделить дубликаты в Excel с помощью расширенного пошагового мастера.

По сравнению с быстрым инструментом, который мы только что рассмотрели, мастеру Duplicate Remover требуется несколько дополнительных щелчков мыши. Но он компенсирует это рядом дополнительных опций. Посмотрим это в действии:

Выберите любую ячейку в таблице, в которой вы хотите выделить дубликаты, и нажмите кнопку «Удаление дубликатов» на ленте. Мастер запустится, и будет выделена вся таблица. Также на всякий случай надстройка предложит создать резервную копию вашей таблицы. Если он вам не нужен, снимите этот флажок.

Убедитесь, что таблица выбрана правильно, и нажмите Далее .

Выберите один из следующих типов данных, которые вы хотите найти:
- Дубликаты без первых вхождений повторяющихся записей.
- Дубликаты вместе с первым вхождением.
- Уникальные значения.
- Уникальные записи и первые повторяющиеся вхождения.

В этом примере давайте найдем Дубликаты + 1-е вхождение :

Теперь выберите столбцы, чтобы проверить наличие дубликатов. Поскольку мы хотим выделить полные повторяющиеся строки, я выбрал все 3 столбца.

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

Наконец, выберите действие, которое нужно выполнить с дубликатами. У вас есть несколько вариантов – выбор , удаление , копирование, перемещение дубликатов или добавление столбца статуса для идентификации дубликатов .

Поскольку сегодня мы изучаем различные способы выделения дубликатов в Excel, наш выбор очевиден Итак, выберите «Заливка цветом» (Fill with color) и укажите один из стандартных цветов или нажмите « Другие цвета» и выберите любой собственный цвет RGB.

Нажимаем кнопку Finish и наслаждаемся результатом

Вот как вы можно выделить дубликаты в Excel с помощью надстройки Duplicate Remover. Если вам интересно попробовать этот инструмент на своих рабочих таблицах, вы можете загрузить полнофункциональную пробную версию Ultimate Suite, которая включает в себя более 60 инструментов для экономии времени при работе в Excel. Будем очень благодарны за ваши отзывы в комментариях!

Рекомендуем также:

Подсчет уникальных значений в Excel — В этом руководстве вы узнаете, как посчитать уникальные значения в Excel с помощью формул и как это сделать в сводной таблице. Мы также разберём несколько примеров счёта уникальных текстовых и числовых…

9 способов сравнить две таблицы в Excel и найти разницу — В этом руководстве вы познакомитесь с различными методами сравнения таблиц Excel и определения различий между ними. Узнайте, как просматривать две таблицы рядом, как использовать формулы для создания отчета о различиях, выделить…

Как посчитать количество повторяющихся значений в Excel? — Зачем считать дубликаты? Мы можем получить ответ на множество интересных вопросов. К примеру, сколько клиентов сделало покупки, сколько менеджеров занималось продажей, сколько раз работали с определённым поставщиком и т.д. Если…

Как убрать повторяющиеся значения в Excel? — В этом руководстве объясняется, как удалять повторяющиеся значения в Excel. Вы изучите несколько различных методов поиска и удаления дубликатов, избавитесь от дублирующих строк, обнаружите точные повторы и частичные совпадения. Хотя…

Источник

cybereug

Гость

необходимо в excel найти в столбце 1 ячейку синего цвета и скопировать ее в столбец 2 во все строки до нахождения следующей синей ячейки в столбце 1. Далее опять копируется синяя ячейка до нахожденя следующей синей. Заранее спасибо!


	Записан

HandKot

Молодой специалист

Offline Offline

Сервис-Макрос-Начать запись

Потом выбираешь Правка-Найти Формат, указываешь цвет ячейки для поиска

После посмотри полученный код и подгони его под себя


	Записан

I Have Nine Lives You Have One Only
THINK!

PooH

Глобальный модератор

Offline Offline
Пол:

… и можно без хлеба!

а зачем тут синию искать? иди по столбцу и как наткнулся на синию, начинай её вставлять во второй столбец для всех «не синих»


	Записан

Удачного всем кодинга! -=x[PooH]x=-

cybereug

Гость

а как это програмно сделать? вопрос в том что синие ячейки имеют разные значения и значение должно меняться после нахождения следующей синей ячейки


« Последнее редактирование: 18-07-2006 14:05 от cybereug »	Записан

cybereug

Гость

вот в приложении примерно что нужно сделать и что должно получиться

RomCom

Sub Макрос1()
Dim sht As Worksheet, i As Integer
Set sht = Application.ActiveWorkbook.ActiveSheet

‘находим первую синию ячейку
For i = 1 To 100 ‘100 — диапазон
If sht.Cells(i, 1).Interior.ColorIndex = 5 Then
Exit For
End If
Next

‘ну и собственно вставка
For i = i To 100 ‘100 — диапазон
If sht.Cells(i, 1).Interior.ColorIndex = 5 Then
sht.Cells(i, 1).Select
Selection.Copy
Else
sht.Cells(i, 2).Select
sht.Paste
End If
Next
End Sub


« Последнее редактирование: 19-12-2007 18:19 от Алексей1153++ »	Записан

R.O.M.C.O.M.: Robotic Operational Mathematics and Ceaseless Observation Machine

cybereug

Гость

большое спасибо! а как удалить потом строчки с синими ячейками с кторых начиналась вставка?


« Последнее редактирование: 19-07-2006 04:44 от cybereug »	Записан

Источник

Andy8

Пользователь

Сообщений: 8
Регистрация: 15.02.2019

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

Изменено: Andy8 — 30.09.2021 14:26:17

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	Вас устроит ответ — можно? Если нет — ознакомьтесь с правилами форума и прикрепите к первому сообщению пример

БМВ

Модератор

Сообщений: 21380
Регистрация: 28.12.2016

Excel 2013, 2016

30.09.2021 14:44:23

Использовать стандартный поиск (ctrl+f) выбрать формат, там указать заливку. А вот сокрытие строк — это или через фильтр или макросом.

Цитата
vikttur написал: Если нет — ознакомьтесь с правилами форума и прикрепите к первому сообщению пример

Вить а что не так?

По вопросам из тем форума, личку не читаю.

vikttur

Пользователь

Сообщений: 47199
Регистрация: 15.09.2012

30.09.2021 14:48:51

Цитата
БМВ написал: что не так

Мое сообщение — 13:58:56
Правка первого сообщения — 14:26:17

Andy8 Пользователь Сообщений: 8 Регистрация: 15.02.2019	Я не вижу в этом диалоге выбор ячеек по формату. Excel для mac редуцирован(( Либо, не там ищу?..

БМВ

Модератор

Сообщений: 21380
Регистрация: 28.12.2016

Excel 2013, 2016

30.09.2021 14:54:34

Цитата
Andy8 написал: Excel для mac редуцирован((

просто он обгрызан. Для мака есть раздел специальный на форуме, но не факт что этот функционал есть.

По вопросам из тем форума, личку не читаю.

БМВ

Модератор

Сообщений: 21380
Регистрация: 28.12.2016

Excel 2013, 2016

30.09.2021 14:57:11

Цитата
vikttur написал: Мое сообщение — 13:58:56Правка первого сообщения — 14:26:17

Клянусь косяком (жаль что не скринил) видел файл но Изменено: — там не было, а твое уже было.

По вопросам из тем форума, личку не читаю.

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012

Andy8 Пользователь Сообщений: 8 Регистрация: 15.02.2019	Вот же ошибся с веткой 2Модератор: перенесите, пжст, в профильную ветку по Mac

Jack Famous

Пользователь

Сообщений: 10848
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

Здесь тема и помрёт за отсутствием спецов Помянём

Изменено: Jack Famous — 30.09.2021 15:33:43

Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

VSerg Пользователь Сообщений: 370 Регистрация: 01.01.1970	Я конечно далеко не спец, да и не факт что еще актуально. Во вложении вариант. Целевой цвет для поиска ячеек задается заливкой ячейки I7. Прикрепленные файлы Sample.xlsm (20.38 КБ)

Andy8 Пользователь Сообщений: 8 Регистрация: 15.02.2019	Да это прям спасение!!! Спасибо вам! Подскажите, пжст, для чайника — как этот скрипт вставить в мою книгу? Изменено: Andy8 — 03.10.2021 21:01:16

VSerg

Пользователь

Сообщений: 370
Регистрация: 01.01.1970

#13

03.10.2021 21:10:05

Цитата
Andy8 написал: как этот скрипт вставить в мою книгу?

Если я правильно понял вопрос, то вставить новый модуль в редакторе VBA, скопировать в него предлагаемый код из файла или этого сообщения и назначить выполнение на какое-либо событие.
А можно вопрос, мне очень интересно зачем вам нужно выделять несколько разрозненных ячеек? Смена цвета заливки?

Код

Sub main()
Dim lRow As Long
Dim lCol As Long
Dim i As Long
Dim j As Long
Dim wb As Workbook
Dim ws As Worksheet
Dim SelectedRng As Range
Dim HideRow As Boolean
Dim CellColor As Long

Set wb = Application.ThisWorkbook
Set ws = wb.Sheets("Sheet")

lRow = ws.Cells.Find(What:="*", After:=Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row
lCol = ws.Cells(1, Columns.Count).End(xlToLeft).Column

CellColor = ws.Range("I7").Interior.Color

For i = lRow To 2 Step -1
    HideRow = True
    For j = 1 To lCol
        If ws.Cells(i, j).Interior.Color = CellColor Then
            If SelectedRng Is Nothing Then
                Set SelectedRng = ws.Cells(i, j)
            Else
                Set SelectedRng = Application.Union(SelectedRng, ws.Cells(i, j))
                SelectedRng.Select
            End If
            HideRow = False
        End If
    Next
    If HideRow = True Then
        Cells(i, j).EntireRow.Hidden = True
    End If
Next
End Sub

Andy8

Пользователь

Сообщений: 8
Регистрация: 15.02.2019

Цель использования данного макроса — формирование списка ФИО на оплату. Т.е. в Столбце А указаны ФИО, а последующих столбцах проекты, где эти ФИО участвовали (одни и теже ФИО участвую в разных проектах с разными гонорарами). Проекты плодятся, а ФИО присылают отчеты не сразу. По мере получения отчетов, ячейка на пересечении проекта и ФИО отмечается желтым в ручном режиме. Как-то так…

Но у меня проблема:
Я перенес макрос в свою книгу. Поменял ячейку с образцом цвета (в макросе в 2-х местах исправил). Но при попытке запустить макрос из меню получаю ошибку — см. Что я делаю не правильно?

VSerg Пользователь Сообщений: 370 Регистрация: 01.01.1970	Предположу, что забыли поменять имя листа. Замените в строке Set ws = wb.Sheets(«Sheet») текст в кавычках на название вашего листа с данными.

Andy8 Пользователь Сообщений: 8 Регистрация: 15.02.2019	Да, вы правы — заработало!) Подскажите, пжст, как удовлетворить таким условиям: 1. «образцовая» ячейка в А1 2. диапазон для поиска ячеек со строки 3 и ниже (т.к. в строках 1-2 — заголовки)

VSerg

Пользователь

Сообщений: 370
Регистрация: 01.01.1970

#17

04.10.2021 05:53:00

Цитата
Andy8 написал: 1. «образцовая» ячейка в А1.

вместо

Код
CellColor = ws.Range("I7").Interior.Color

подставить

Код
CellColor = ws.Range("A1").Interior.Color

Цитата
Andy8 написал: 2. диапазон для поиска ячеек со строки 3 и ниже (т.к. в строках 1-2 — заголовки)

вместо

Код
For i = lRow To 2 Step -1

подставить

Код
For i = lRow To 4 Step -1

Должно помочь.

Andy8

Пользователь

Сообщений: 8
Регистрация: 15.02.2019

#18

04.10.2021 11:37:38

Цитата
VSerg написал: подставить For i = lRow To 4 Step -1 Должно помочь.

Подставил «3» — все идеально! Спасибо вам!

Источник

Пример использования

Сортировка по цвету ячеек

Фильтр по цвету ячеек

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

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

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

Как подсветить дубликаты, используя встроенный инструмент (с 1-м появлением)

Как выделить повторы без 1-го вхождения

Как показать третий, четвертый и все последующие дубликаты?

Как выделить дубликаты в диапазоне

Выделите дубликаты в таблице, включая 1-е вхождение.

Выделите повторы в таблице без 1-го вхождения.

Выделение целых строк на основе повторяющихся значений в одной колонке.

Как выделить дублирующиеся строки.

Подсветка последовательных дубликатов ячеек.

Как выделить дубликаты в Excel с помощью инструмента Duplicate Remover.

Как выделить дубликаты в Excel за пару кликов

Как выделить дубликаты в Excel с помощью расширенного пошагового мастера.

А вот еще интересные статьи: