Hoppa till huvudinnehåll

Hur färgar man alternativa rader för sammanslagna celler i Excel?

Det är mycket användbart att formatera alternativa rader med en annan färg i stora data för att vi ska kunna skanna data, men ibland kan det finnas några sammanslagna celler i din data. För att markera raderna växelvis med en annan färg för de sammanslagna cellerna enligt skärmbilden nedan, hur kunde du lösa det här problemet i Excel?

Färg alternativa rader för sammanslagna celler med villkorlig formatering

Färg alternativa rader för sammanslagna celler med VBA-kod


Färg alternativa rader för sammanslagna celler med villkorlig formatering

I Excel, den kraftfulla funktionen-Villkorlig formatering kan hjälpa dig att uppnå den här uppgiften så snabbt som möjligt, vänligen gör med följande steg:

1. Välj dataintervallet som innehåller de sammanslagna cellerna som du vill färglägga omväxlande och klicka sedan Hem > Villkorlig formatering > Ny regel, se skärmdump:

2. I poppade ut Ny formateringsregel dialogrutan, gör följande:

  • Välja Använd en formel för att bestämma vilka celler som ska formateras alternativ från Välj en regeltyp listruta;
  • Och skriv sedan in denna formel: =MOD(COUNTA($A$2:$A2),2)=0 i Formatera värden där denna formel är sann textruta.
  • Anmärkningar: A2 är den första cellen i ditt dataintervall.

3. Klicka sedan bildad knappen för att gå till Formatera celler dialog ruta. Under Fyll fliken, välj en färg du vill markera raderna med, se skärmdump:

4. Klicka OK > OK för att stänga dialogerna och raderna med de sammanslagna cellerna fylls med den färg du angav, se skärmdump:

5. Fortsätt klicka Hem > Villkorlig formatering > Ny regel att öppna Ny formateringsregel dialogrutan, gör följande:

  • Välja Använd en formel för att bestämma vilka celler som ska formateras alternativ från Välj en regeltyp listruta;
  • Och skriv sedan in denna formel: =MOD(COUNTA($A$2:$A2),2)=1 i Formatera värden där denna formel är sann textruta.
  • Klicka sedan bildad för att välja en annan färg som du vill markera raderna.
  • Anmärkningar: A2 är den första cellen i ditt dataintervall.

6. Och klicka sedan på OK > OK för att stänga dialogrutorna, och nu kan du se att det valda dataintervallet har skuggats med två olika färger omväxlande baserat på de sammanslagna cellerna enligt skärmbilden nedan:


Färg alternativa rader för sammanslagna celler med VBA-kod

Förutom den normala villkorliga formateringen kan du också använda en VBA-kod för att enkelt tillämpa alternativa radfärger för sammanslagna celler.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka sedan Insert > Modulernaoch klistra in följande kod i Modulerna fönster.

VBA-kod: Färg alternativa rader för sammanslagna celler

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. Tryck sedan på F5 nyckel för att köra den här koden. I den första utskjutna rutan väljer du det dataintervall du vill använda, se skärmdump:

4. I den andra uppmaningsrutan, välj kolumnen med sammanslagna celler, se skärmdump:

5. Och klicka sedan på OK -knappen skuggas raderna växelvis baserat på de sammanslagna cellerna enligt skärmbilden nedan:


Video: Färg alternativa rader för sammanslagna celler


Fler relativa artiklar:

  • Filtrera alla relaterade data från sammanslagna celler
  • Antag att det finns en kolumn med sammanslagna celler i ditt dataområde, och nu måste du filtrera den här kolumnen med sammanslagna celler för att visa alla rader som är relaterade till varje sammanslagen cell som följande skärmdumpar visas. I Excel låter filterfunktionen dig bara filtrera det första objektet som är associerat med de sammanslagna cellerna. I den här artikeln kommer jag att prata om hur man filtrerar all relaterad data från sammanslagna celler i Excel?
  • Kopiera och klistra in sammanslagna celler i enstaka celler
  • Normalt kommer de sammanslagna cellerna att klistras in direkt när du kopierar de sammanslagna cellerna och klistrar in dem i andra celler. Men du vill klistra in dessa sammanslagna celler i enstaka celler enligt följande skärmdump, så att du kan hantera data efter behov. Den här artikeln kommer jag att prata om hur man kopierar och klistrar samman sammanlagda celler till enstaka celler.
  • Rensa innehållet i flera sammanslagna celler
  • Om du har ett stort kalkylblad som innehåller flera sammanslagna celler och nu vill du rensa allt innehåll i de sammanslagna cellerna men behålla de sammanslagna cellerna. Normalt kan du försöka använda funktionen Sök och ersätt för att markera alla sammanslagna celler först och tryck sedan på Delete-tangenten för att radera värdet, men du får ett varningsmeddelande "Vi kan inte göra det till en sammanslagen cell". I det här fallet, hur rensar du värdena i sammanslagna celler men lämnar de sammanslagna cellerna snabbt i Excel?
  • Autonummer sammanfogade celler
  • Hur kunde vi fylla serienumren i en lista med sammanslagna celler i olika storlekar i Excel? Först i vårt sinne är att dra autofyllhandtaget för att fylla de sammanslagna cellerna, men i det här fallet får vi följande varningsmeddelande och kan inte fylla de sammanslagna cellerna.

  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner och förvaring av data; Delat cellinnehåll; Kombinera duplicerade rader och summa / genomsnitt... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Favorit och sätt snabbt in formler, Intervall, diagram och bilder; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Gruppering av pivottabell efter veckonummer, veckodagen och mer ... Visa olåsta, låsta celler av olika färger; Markera celler som har formel / namn...
kte-flik 201905
  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
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