Как раскрасить строки через одну для объединенных ячеек в Excel?
Форматирование строк через одну разным цветом очень помогает при просмотре больших объемов данных, но иногда в ваших данных могут быть объединенные ячейки. Чтобы выделить строки попеременно разными цветами для объединенных ячеек, как показано на скриншоте ниже, как можно решить эту проблему в Excel?
Раскраска строк через одну для объединенных ячеек с помощью Условного форматирования
Раскраска строк через одну для объединенных ячеек с помощью кода VBA
Раскраска строк через одну для объединенных ячеек с помощью Условного форматирования
В Excel мощная функция - Условное форматирование может помочь вам выполнить эту задачу максимально быстро, пожалуйста, следуйте указанным ниже шагам:
1. Выберите диапазон данных, содержащий объединенные ячейки, которые вы хотите раскрасить через одну, затем нажмите Главная > Условное форматирование > Новое правило, см. скриншот:
2. В появившемся диалоговом окне Новое правило форматирования выполните следующие действия:
- Выберите опцию Использовать формулу для определения ячеек для форматирования из списка Тип правила;
- Затем введите эту формулу: =ОСТАТ(СЧЁТЗ($A$2:$A2);2)=0 в текстовое поле Форматировать значения, где эта формула верна.
- Примечание: A2 - это первая ячейка вашего диапазона данных.
3. Затем нажмите кнопку Формат, чтобы перейти в диалоговое окно Формат ячеек. На вкладке Заливка выберите цвет, которым вы хотите выделить строки, см. скриншот:
4. Нажмите ОК > ОК, чтобы закрыть диалоговые окна, и строки с объединенными ячейками будут заполнены выбранным вами цветом, см. скриншот:
5. Продолжайте нажимать Главная > Условное форматирование > Новое правило, чтобы открыть диалоговое окно Новое правило форматирования, выполните следующие действия:
- Выберите опцию Использовать формулу для определения ячеек для форматирования из списка Тип правила;
- Затем введите эту формулу: =ОСТАТ(СЧЁТЗ($A$2:$A2);2)=1 в текстовое поле Форматировать значения, где эта формула верна.
- Затем нажмите кнопку Формат, чтобы выбрать другой цвет, которым вы хотите выделить строки.
- Примечание: A2 - это первая ячейка вашего диапазона данных.
6. Затем нажмите ОК > ОК, чтобы закрыть диалоговые окна, и теперь вы можете видеть, что выбранный диапазон данных был закрашен двумя разными цветами попеременно на основе объединенных ячеек, как показано на скриншоте ниже:
Раскраска строк через одну для объединенных ячеек с помощью кода VBA
Помимо обычного Условного форматирования, вы также можете использовать код VBA для применения цветов строк через одну к объединенным ячейкам с легкостью.
1. Удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Затем нажмите Вставка > Модуль и вставьте следующий код в окно Модуль.
Код VBA: Раскраска строк через одну для объединенных ячеек
Sub Kutools_AlternateColor()
'Update by ExtendOffice
Dim xRg As Range
Dim xCRg As Range
Dim xIRg As Range
Dim xC1, xC2 As Integer
Dim xR1 As Integer
Dim xCnt As Long
Dim xLColor, xDCR1, xDCR2 As Long
Set xRg = Application.InputBox("Please select the data range:", "KutoolsforExcel", "", Type:=8)
If TypeName(xRg) = "Nothing" Then Exit Sub
Set xCRg = Application.InputBox("Please select the column with the merged cells:", "KutoolsforExcel", "", Type:=8)
If TypeName(xCRg) = "Nothing" Then Exit Sub
Set xIRg = Intersect(xRg, xCRg)
If xIRg Is Nothing Then
MsgBox "the data range doesn't contain merged cells"
Exit Sub
End If
xC1 = xRg.Column
xC2 = xIRg.Column
xR1 = xRg.Row
xLColor = RGB(221, 235, 247)
xDCR1 = RGB(221, 235, 247)
xDCR2 = RGB(250, 232, 222)
xRw = 0
Do
xLColor = xDCR1 + xDCR2 - xLColor
xCnt = Cells(xRw + xR1, xC2).MergeArea.Rows.Count
Cells(xRw + xR1, xC1).Resize(xCnt, xRg.Columns.Count).Interior.Color = xLColor
xRw = xRw + xCnt
Loop While xRw < xRg.Rows.Count - 1
End Sub
3. Затем нажмите клавишу F5, чтобы запустить этот код. В первом появившемся окне выберите диапазон данных, который вы хотите использовать, см. скриншот:
4. Во втором диалоговом окне выберите столбец с объединенными ячейками, см. скриншот:
5. Затем нажмите кнопку ОК, и строки будут закрашены попеременно на основе объединенных ячеек, как показано на скриншоте ниже:
Видео: Раскраска строк через одну для объединенных ячеек
Больше связанных статей:
- Фильтрация всех связанных данных из объединенных ячеек
- Предположим, что в вашем диапазоне данных есть столбец с объединенными ячейками, и теперь вам нужно отфильтровать этот столбец с объединенными ячейками, чтобы показать все строки, связанные с каждой объединенной ячейкой, как показано на следующих скриншотах. В Excel функция Фильтр позволяет фильтровать только первый элемент, связанный с объединенными ячейками. В этой статье я расскажу, как отфильтровать все связанные данные из объединенных ячеек в Excel.
- Копирование и вставка объединенных ячеек в одиночные ячейки
- Обычно, когда вы копируете объединенные ячейки и вставляете их в другие ячейки, объединенные ячейки вставляются напрямую. Но вы хотите вставить эти объединенные ячейки в одиночные ячейки, как показано на следующем скриншоте, чтобы иметь возможность обрабатывать данные по мере необходимости. В этой статье я расскажу, как копировать и вставлять объединенные ячейки в одиночные ячейки.
- Очистка содержимого нескольких объединенных ячеек
- Если у вас есть большая таблица, содержащая несколько объединенных ячеек, и вы хотите очистить все содержимое объединенных ячеек, оставив сами объединенные ячейки нетронутыми. Обычно вы можете попробовать использовать функцию Найти и заменить, чтобы сначала выбрать все объединенные ячейки, а затем нажать клавишу Delete для удаления значений, однако вы получите предупреждение "Мы не можем сделать это с объединенной ячейкой". В этом случае как быстро очистить значения в объединенных ячейках, оставив сами объединенные ячейки нетронутыми в Excel?
- Автонумерация объединенных ячеек
- Как заполнить последовательные номера в список объединенных ячеек разного размера в Excel? Первое, что приходит в голову, - это перетащить маркер автозаполнения, чтобы заполнить объединенные ячейки, но в этом случае мы получим следующее предупреждение и не сможем заполнить объединенные ячейки.
Лучшие инструменты для повышения производительности Office
Kutools для Excel решает большинство ваших проблем и увеличивает вашу продуктивность на 80%
- Супер строка формул (легкое редактирование нескольких строк текста и формул); Режим чтения (удобное чтение и редактирование большого количества ячеек); Вставка в отфильтрованный диапазон...
- Объединение ячеек/строк/столбцов с сохранением данных; Разделение содержимого ячеек; Объединение дублирующихся строк с подсчетом суммы/среднего значения... Предотвращение дублирования ячеек; Сравнение диапазонов...
- Выбор дублирующихся или уникальных строк; Выбор пустых строк (все ячейки пустые); Супер поиск и нечеткий поиск во многих книгах; Случайный выбор...
- Точное копирование нескольких ячеек без изменения ссылок на формулы; Автоматическое создание ссылок на несколько листов; Вставка маркеров, флажков и многое другое...
- Избранные и быстрая вставка формул, диапазонов, диаграмм и изображений; Шифрование ячеек с паролем; Создание списка рассылки и отправка электронных писем...
- Извлечение текста, добавление текста, удаление по позиции, удаление пробелов; Создание и печать статистики страниц; Преобразование между содержимым ячеек и комментариями...
- Супер фильтр (сохранение и применение схем фильтрации к другим листам); Расширенная сортировка по месяцу/неделе/дню, частоте и другим параметрам; Специальный фильтр по жирному шрифту, курсиву...
- Объединение книг и листов; Объединение таблиц на основе ключевых столбцов; Разделение данных на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Группировка сводной таблицы по номеру недели, дню недели и другим параметрам... Отображение разблокированных, заблокированных ячеек разными цветами; Выделение ячеек, содержащих формулы/имена...
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов в новых вкладках одного окна, а не в новых окнах.
- Увеличивает вашу продуктивность на 50% и экономит сотни кликов мышью каждый день!
