Прескочи на основното съдържание

Как да оцветите алтернативни редове за обединени клетки в Excel?

Автор: Xiaoyang Последна промяна: 2023-04-13

Много е полезно да форматирате алтернативни редове с различен цвят в големи данни, за да сканираме данните, но понякога може да има някои обединени клетки във вашите данни. За да маркирате редовете последователно с различен цвят за обединените клетки, както е показано на екранната снимка по-долу, как можете да разрешите този проблем в Excel?

Оцветете алтернативни редове за обединени клетки с условно форматиране

Оцветете алтернативни редове за обединени клетки с VBA код


Оцветете алтернативни редове за обединени клетки с условно форматиране

В Excel мощната функция-Условно форматиране може да ви помогне да постигнете тази задача възможно най-бързо, моля, изпълнете следните стъпки:

1. Изберете диапазона от данни, който съдържа обединените клетки, които искате да оцветите алтернативно, и след това щракнете Начало > Условно форматиране > Ново правило, вижте екранна снимка:

2. В изскочилото Ново правило за форматиране диалогов прозорец, направете следните операции:

  • Изберете Използвайте формула, за да определите кои клетки да форматирате опция от Изберете тип правило списъчна кутия;
  • И след това въведете тази формула: =MOD(COUNTA($A$2:$A2),2)=0 в Форматиране на стойности, където тази формула е вярна текстово поле.
  • Забележка: A2 е първата клетка от вашия диапазон от данни.

3, След това кликнете върху формат За да отидете на Форматиране на клетки диалогов прозорец. Под Напълнете изберете един цвят, с който искате да маркирате редовете, вижте екранната снимка:

4. Щракнете OK > OK за да затворите диалоговите прозорци и редовете с обединените клетки се запълват с цвета, който сте посочили, вижте екранната снимка:

5. Продължете да щракате Начало > Условно форматиране > Ново правило за да отворите Ново правило за форматиране диалогов прозорец, направете следните операции:

  • Изберете Използвайте формула, за да определите кои клетки да форматирате опция от Изберете тип правило списъчна кутия;
  • И след това въведете тази формула: =MOD(COUNTA($A$2:$A2),2)=1 в Форматиране на стойности, където тази формула е вярна текстово поле.
  • След това кликнете върху формат бутон, за да изберете друг цвят, с който искате да маркирате редовете.
  • Забележка: A2 е първата клетка от вашия диапазон от данни.

6. И след това щракнете OK > OK за да затворите диалоговите прозорци и сега можете да видите, че избраният диапазон от данни е засенчен с два различни цвята, последователно въз основа на обединените клетки, както е показано на екранната снимка по-долу:


Оцветете алтернативни редове за обединени клетки с 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. И след това щракнете OK бутон, редовете се засенчват последователно въз основа на обединените клетки, както е показано на екранната снимка по-долу:


Видео: Оцветете алтернативни редове за обединени клетки


Още относителни статии:

  • Филтрирайте всички свързани данни от обединени клетки
  • Да предположим, че има колона от обединени клетки във вашия диапазон от данни и сега трябва да филтрирате тази колона с обединени клетки, за да покажете всички редове, които са свързани с всяка обединена клетка, както са показани следните екранни снимки. В Excel функцията за филтриране ви позволява да филтрирате само първия елемент, който е свързан с обединените клетки, в тази статия ще говоря за това как да филтрирате всички свързани данни от обединени клетки в Excel?
  • Копирайте и поставете обединени клетки в единични клетки
  • Обикновено, когато копирате обединените клетки и ги поставите в други клетки, обединените клетки ще бъдат поставени директно. Но вие искате да поставите тези обединени клетки в единични клетки, както е показано на следната екранна снимка, така че да можете да работите с данните, както ви е необходимо. В тази статия ще говоря за това как да копирате и поставите обединени клетки в единични клетки.
  • Изчистване на съдържанието на множество обединени клетки
  • Ако имате голям работен лист, който съдържа множество обединени клетки, и сега искате да изчистите цялото съдържание на обединените клетки, но да запазите обединените клетки. Обикновено можете да опитате да приложите функцията за намиране и замяна, за да изберете първо всички обединени клетки и след това да натиснете клавиша Delete, за да изтриете стойността, но ще получите предупредително съобщение „Не можем да направим това с обединена клетка“. В този случай как да изчистите стойностите в обединените клетки, но да оставите обединените клетки бързо в Excel?
  • Автоматично номериране на обединени клетки
  • Как бихме могли да попълним номерата на сериите в списък с обединени клетки с различен размер в Excel? Първо в ума ни е да плъзнем манипулатора за автоматично попълване, за да запълним обединените клетки, но в този случай ще получим следното предупредително съобщение и не можем да попълним обединените клетки.

  • Супер Формула Бар (лесно редактиране на няколко реда текст и формула); Оформление за четене (лесно четене и редактиране на голям брой клетки); Поставяне във филтриран диапазон...
  • Обединяване на клетки/редове/колони и съхраняване на данни; Съдържание на разделени клетки; Комбинирайте дублиращи се редове и сума/средно... Предотвратяване на дублиращи се клетки; Сравнете диапазони...
  • Изберете Дублиран или Уникален редове; Изберете Празни редове (всички клетки са празни); Super Find и Fuzzy Find в много работни тетрадки; Произволен избор...
  • Точно копие Множество клетки без промяна на референтната формула; Автоматично създаване на препратки към множество листа; Вмъкване на куршуми, квадратчета за отметка и други...
  • Любими и бързо вмъкнати формули, диапазони, диаграми и снимки; Шифроване на клетки с парола; Създаване на пощенски списък и изпращайте имейли...
  • Извличане на текст, Добавяне на текст, Премахване по позиция, Премахване на пространството; Създаване и отпечатване на междинни суми за пейджинг; Конвертиране на съдържание и коментари между клетки...
  • Супер филтър (запазване и прилагане на филтърни схеми към други листове); Разширено сортиране по месец/седмица/ден, честота и други; Специален филтър с удебелен шрифт, курсив...
  • Комбинирайте работни тетрадки и работни листове; Обединяване на таблици въз основа на ключови колони; Разделете данните на няколко листа; Пакетно конвертиране на xls, xlsx и PDF...
  • Групиране на обобщена таблица по номер на седмицата, ден от седмицата и други... Показване на отключени, заключени клетки с различни цветове; Маркирайте клетки, които имат формула/име...
kte tab 201905
  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
officetab отдолу
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
А еще у вас неверная формула:)
Ну нет такой формулы - СЧЕТЧИК
Правильнее СЧЕТЗ =)
This comment was minimized by the moderator on the site
Hello, Влад
The formulas in this article have been translated, so you can try the below formulas in English:
=MOD(COUNTA($A$2:$A2),2)=0
=MOD(COUNTA($A$2:$A2),2)=1
Please try, hope it can help you!
This comment was minimized by the moderator on the site
Здравствуйте!
Спасибо за статью

У меня есть некоторое замечание
= ОСТАТ (СЧЕТЧИК ($ A $ 2: $ A 2), 2) = 0
правильно , сменить на ;
= ОСТАТ (СЧЕТЧИК ($ A $ 2: $ A 2); 2) = 0

но даже после этого не работает
This comment was minimized by the moderator on the site
Hello, Vlad
The formulas in this article have been translated, so you can try the below formulas in English:
=MOD(COUNTA($A$2:$A2),2)=0
=MOD(COUNTA($A$2:$A2),2)=1

Please try, hope it can help you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations