Как раскрасить чередующиеся строки в объединённом диапазоне Excel?

Форматирование чередующихся строк разными цветами в больших таблицах значительно облегчает просмотр данных. Однако иногда в ваших данных могут присутствовать объединённые ячейки. Как применить чередующуюся заливку строк к таким объединённым ячейкам, как показано на снимке экрана ниже? Как решить эту задачу в Excel?

Раскраска чередующихся строк для Объединенный с помощью Использовать условное форматирование

Раскраска чередующихся строк для Объединенный с помощью кода VBA

---

Раскраска чередующихся строк для Объединенный с помощью Использовать условное форматирование

В Excel мощная функция — Использовать условное форматирование позволяет максимально быстро решить эту задачу. Выполните следующие действия:

1. Выделите диапазон данных, содержащий объединённые ячейки, которые нужно раскрасить чередующимися цветами, затем щёлкните Главная > Использовать условное форматирование > Создать правило, см. снимок экрана:

2. В появившемся диалоговом окне Создание нового правила форматирования выполните следующие действия:

• Выберите Использовать формулу для определения форматируемых ячеекв списке Выбор типа правила
• Затем введите эту формулу:=MOD(COUNTA($A$2:$A2),2)=0в поле Форматировать значения, для которых формула принимает значение ИСТИНА
• Примечание: A2 — первая ячейка вашего диапазона данных.

3. Затем нажмите кнопку Формат, чтобы открыть диалоговое окно Установить формат ячейки. На вкладке Заливка выберите нужный цвет для выделения строк (см. снимок экрана):

4. Нажмите ОК > ОК, чтобы закрыть диалоговые окна. Строки, содержащие «Объединенный», будут выделены указанным вами цветом — см. снимок экрана:

5. Повторно щёлкните Главная > Использовать условное форматирование > Создать правило, чтобы открыть диалоговое окно Создание нового правила форматирования, и выполните следующие действия:

• Выберите Использовать формулу для определения форматируемых ячеекв списке Выбор типа правила
• Затем введите эту формулу:=MOD(COUNTA($A$2:$A2),2)=1в поле Форматировать значения, для которых формула принимает значение ИСТИНА
• Затем нажмите кнопку Формат, чтобы выбрать другой цвет для выделения строк.
• Примечание:A2— первая ячейка вашего Диапазон данных.

6. Затем нажмите ОК > ОК, чтобы закрыть диалоговые окна. Теперь вы увидите, что диапазон «Выбрать данные» раскрашен двумя разными цветами в шахматном порядке на основе «Объединённый», как показано на снимке экрана ниже:

---

Раскраска чередующихся строк для Объединенный с помощью кода VBA

Помимо стандартного «Использовать условное форматирование», вы также можете легко применить чередующиеся цвета строк к объединённым ячейкам с помощью кода VBA.

1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.

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. Затем нажмите кнопку ОК, и строки будут окрашены чередующимися цветами на основе объединённых данных, как показано на снимке экрана ниже:

---

Видео: Раскраска чередующихся строк для Объединенный

---

Другие связанные статьи: