Salt la conținutul principal

Cum se colorează rândurile alternative pentru celulele îmbinate în Excel?

Este foarte util să formatăm rânduri alternative cu o culoare diferită într-o date mari pentru ca noi să scanăm datele, dar, uneori, pot exista unele celule îmbinate în datele dvs. Pentru a evidenția rândurile alternativ cu o culoare diferită pentru celulele îmbinate, așa cum se arată mai jos, cum ați putea rezolva această problemă în Excel?

Colorează rândurile alternative pentru celulele îmbinate cu formatare condiționată

Colorează rândurile alternative pentru celulele îmbinate cu cod VBA


Colorează rândurile alternative pentru celulele îmbinate cu formatare condiționată

În Excel, funcția puternică-Formatarea condițională vă poate ajuta să realizați această sarcină cât mai repede posibil, vă rugăm să urmați următorii pași:

1. Selectați intervalul de date care conține celulele îmbinate pe care doriți să le colorați alternativ, apoi faceți clic Acasă > Formatarea condițională > Noua regulă, vezi captura de ecran:

2. În pop-out Noua regulă de formatare caseta de dialog, efectuați următoarele operații:

  • Selectați Utilizați o formulă pentru a determina ce celule să formatați opțiune de la Selectați un tip de regulă casetă listă;
  • Și apoi introduceți această formulă: =MOD(COUNTA($A$2:$A2),2)=0 în Formatează valorile în care această formulă este adevărată casetă de text.
  • notițe: A2 este prima celulă din intervalul dvs. de date.

3. Apoi apasa Format buton pentru a merge la Celule de format căsuță de dialog. Sub Umple fila, alegeți o culoare cu care doriți să evidențiați rândurile, vedeți captura de ecran:

4. Clic OK > OK pentru a închide casetele de dialog, iar rândurile cu celulele îmbinate sunt umplute cu culoarea specificată de dvs., vedeți captura de ecran:

5. Continuați să faceți clic Acasă > Formatarea condițională > Noua regulă pentru a deschide Noua regulă de formatare caseta de dialog, efectuați următoarele operații:

  • Selectați Utilizați o formulă pentru a determina ce celule să formatați opțiune de la Selectați un tip de regulă casetă listă;
  • Și apoi introduceți această formulă: =MOD(COUNTA($A$2:$A2),2)=1 în Formatează valorile în care această formulă este adevărată casetă de text.
  • Apoi apasa Format butonul pentru a alege altă culoare pe care doriți să evidențiați rândurile.
  • notițe: A2 este prima celulă din intervalul dvs. de date.

6. Apoi, faceți clic OK > OK pentru a închide casetele de dialog și acum puteți vedea că intervalul de date selectat a fost umbrit cu două culori diferite alternativ, pe baza celulelor îmbinate, așa cum se arată mai jos:


Colorează rândurile alternative pentru celulele îmbinate cu cod VBA

Cu excepția formatării condiționate obișnuite, puteți utiliza, de asemenea, un cod VBA pentru a aplica cu ușurință culorile de rând alternative pentru celulele îmbinate.

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi apasa Insera > Moduleși lipiți următorul cod în Module fereastră.

Cod VBA: colorează rândurile alternative pentru celulele îmbinate

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. Apoi, apăsați F5 tasta pentru a rula acest cod. În prima casetă afișată, selectați intervalul de date pe care doriți să îl utilizați, vedeți captura de ecran:

4. În a doua casetă de prompt, selectați coloana cu celule îmbinate, vedeți captura de ecran:

5. Apoi, faceți clic OK butonul, rândurile sunt umbrite alternativ pe baza celulelor îmbinate, așa cum se arată mai jos:


Video: colorează rândurile alternative pentru celulele îmbinate


Mai multe articole relative:

  • Filtrați toate datele asociate din celulele îmbinate
  • Presupunând că există o coloană de celule îmbinate în intervalul dvs. de date și acum, trebuie să filtrați această coloană cu celule îmbinate pentru a afișa toate rândurile care sunt legate de fiecare celulă îmbinată, după cum se arată în următoarele capturi de ecran. În Excel, caracteristica Filtru vă permite să filtrați numai primul element asociat cu celulele îmbinate, în acest articol, voi vorbi despre cum să filtrați toate datele conexe din celulele îmbinate în Excel?
  • Copiați și lipiți celulele îmbinate în celule individuale
  • În mod normal, când copiați celulele îmbinate și le lipiți în alte celule, celulele îmbinate vor fi lipite direct. Dar doriți să lipiți aceste celule îmbinate în celule unice, după cum se arată în următoarea captură de ecran, astfel încât să puteți gestiona datele după cum aveți nevoie. În acest articol, voi vorbi despre cum să copiați și să lipiți celule îmbinate în celule unice.
  • Ștergeți conținutul mai multor celule îmbinate
  • Dacă aveți o foaie de lucru mare care conține mai multe celule îmbinate și acum, doriți să ștergeți tot conținutul celulelor îmbinate, dar să păstrați celulele îmbinate. În mod normal, puteți încerca să aplicați funcția Găsiți și înlocuiți pentru a selecta mai întâi toate celulele îmbinate, apoi apăsați tasta Ștergere pentru a șterge valoarea, cu toate acestea, veți primi un mesaj de avertizare „Nu putem face asta unei celule îmbinate”. În acest caz, cum ștergeți valorile din celulele îmbinate, dar lăsați rapid celulele îmbinate în Excel?
  • Număr automat de celule îmbinate
  • Cum am putea completa numerele seriei într-o listă de celule combinate de dimensiuni diferite în Excel? Mai întâi în mintea noastră este să tragem mânerul de completare automată pentru a umple celulele îmbinate, dar, în acest caz, vom primi următorul mesaj de avertizare și nu putem umple celulele îmbinate.

  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane și păstrarea datelor; Conținut de celule divizate; Combinați rânduri duplicate și sumă / medie... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Formule favorite și inserare rapidă, Gama, Diagrame și Imagini; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Gruparea tabelului pivot după numărul săptămânii, ziua săptămânii și multe altele ... Afișați celulele deblocate, blocate prin diferite culori; Evidențiați celulele care au formulă / nume...
fila kte 201905
  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul 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