Перейти до основного матеріалу

Як пофарбувати альтернативні рядки для об’єднаних комірок у Excel?

Це дуже корисно форматувати альтернативні рядки з іншим кольором у великих даних, щоб ми могли сканувати дані, але іноді у ваших даних можуть бути об’єднані клітинки. Щоб по черзі виділяти рядки іншим кольором для об’єднаних комірок, як показано на знімку екрана нижче, як можна вирішити цю проблему в Excel?

Зафарбуйте альтернативні рядки для об’єднаних клітинок за допомогою умовного форматування

Зафарбуйте альтернативні рядки для об’єднаних комірок кодом VBA


Зафарбуйте альтернативні рядки для об’єднаних клітинок за допомогою умовного форматування

В Excel потужна функція-Умовне форматування може допомогти вам виконати це завдання якнайшвидше, виконайте такі кроки:

1. Виберіть діапазон даних, який містить об’єднані комірки, які потрібно забарвити по черзі, а потім клацніть Головна > Умовне форматування > Нове правило, див. скріншот:

2. В вискочив Нове правило форматування у діалоговому вікні виконайте такі операції:

  • Select За допомогою формули визначте, які клітинки потрібно форматувати опція від Виберіть тип правила вікно списку;
  • А потім введіть цю формулу: =MOD(COUNTA($A$2:$A2),2)=0 в Форматувати значення, де ця формула відповідає дійсності текстове вікно.
  • примітки: A2 є першою клітинкою вашого діапазону даних.

3. Потім натисніть кнопку сформований кнопка, щоб перейти до Формат ячеек діалогове вікно. Під Заповнювати виберіть один колір, яким ви хочете виділити рядки, перегляньте знімок екрана:

4. Клацання OK > OK щоб закрити діалогові вікна, а рядки з об’єднаними клітинками заповнюються вказаним кольором, див. знімок екрана:

5. Продовжуйте натискати Головна > Умовне форматування > Нове правило відкрити Нове правило форматування у діалоговому вікні виконайте такі операції:

  • Select За допомогою формули визначте, які клітинки потрібно форматувати опція від Виберіть тип правила вікно списку;
  • А потім введіть цю формулу: =MOD(COUNTA($A$2:$A2),2)=1 в Форматувати значення, де ця формула відповідає дійсності текстове вікно.
  • Потім натисніть кнопку сформований кнопку, щоб вибрати інший колір, яким ви хочете виділити рядки.
  • примітки: A2 є першою клітинкою вашого діапазону даних.

6. А потім натисніть OK > OK щоб закрити діалогові вікна, і тепер ви побачите, що вибраний діапазон даних затінено двома різними кольорами по черзі на основі об’єднаних клітинок, як показано на знімку екрана нижче:


Зафарбуйте альтернативні рядки для об’єднаних комірок кодом VBA

Крім звичайного умовного форматування, ви також можете використовувати код VBA для легкого застосування альтернативних кольорів рядків для об’єднаних клітинок.

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Потім натисніть кнопку Insert > Модуліта вставте наступний код у Модулі вікна.

Код 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?
  • Скопіюйте та вставте об’єднані клітинки в окремі клітинки
  • Зазвичай, коли ви копіюєте об’єднані комірки та вставляєте їх в інші комірки, об’єднані комірки будуть вставлені безпосередньо. Але ви хочете вставити об’єднані комірки в окремі комірки, як показано на наведеному нижче знімку екрана, щоб ви могли обробляти дані за необхідності. У цій статті я розповім про те, як скопіювати та вставити об’єднані клітинки в окремі комірки.
  • Очистити вміст кількох об’єднаних клітинок
  • Якщо у вас є великий аркуш, який містить кілька об’єднаних комірок, і тепер ви хочете очистити весь вміст об’єднаних комірок, але зберегти об’єднані комірки. Зазвичай ви можете спробувати застосувати функцію "Знайти та замінити", щоб спочатку виділити всі об'єднані комірки, а потім натиснути клавішу "Видалити", щоб видалити значення, однак ви отримаєте попереджувальне повідомлення "Ми не можемо зробити це для об'єднаної комірки". У цьому випадку, як очистити значення в об’єднаних клітинках, але швидко залишити об’єднані комірки в Excel?
  • Автоматична нумерація об'єднаних клітинок
  • Як ми могли заповнити номери серій у список об’єднаних комірок різного розміру в Excel? По-перше, нам потрібно перетягнути маркер автозаповнення, щоб заповнити об’єднані комірки, але в цьому випадку ми отримаємо таке попереджувальне повідомлення і не можемо заповнити об’єднані комірки.

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці та Ведення даних; Вміст розділених комірок; Поєднуйте повторювані рядки та суму / середнє... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Улюблені та швидко вставлені формули, Діапазони, діаграми та зображення; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Групування зведеної таблиці за номер тижня, день тижня та багато іншого ... Показати розблоковані, заблоковані клітини за різними кольорами; Виділіть клітини, які мають формулу / назву...
вкладка kte 201905
  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
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