Direkt zum Inhalt

Wie kann man alternative Zeilen für verbundene Zellen in Excel einfärben?

Es ist sehr hilfreich, abwechselnde Zeilen mit einer anderen Farbe in großen Daten zu formatieren, damit wir die Daten scannen können, aber manchmal können einige verbundene Zellen in Ihren Daten vorhanden sein. Wie können Sie dieses Problem in Excel lösen, um die Zeilen abwechselnd mit einer anderen Farbe für die verbundenen Zellen hervorzuheben, wie im folgenden Screenshot gezeigt?

Färben Sie alternative Zeilen für verbundene Zellen mit bedingter Formatierung ein

Färben Sie alternative Zeilen für verbundene Zellen mit VBA-Code


Färben Sie alternative Zeilen für verbundene Zellen mit bedingter Formatierung ein

In Excel ist das leistungsstarke Feature-Bedingte Formatierung Ihnen helfen kann, diese Aufgabe so schnell wie möglich zu erledigen, führen Sie bitte die folgenden Schritte aus:

1. Wählen Sie den Datenbereich aus, der die verbundenen Zellen enthält, die Sie abwechselnd einfärben möchten, und klicken Sie dann auf Home > Bedingte Formatierung > Neue Regel, siehe Screenshot:

2. In der herausgesprungen Neue Formatierungsregel Führen Sie im Dialogfeld die folgenden Vorgänge aus:

  • Auswählen Verwenden Sie eine Formel, um zu bestimmen, welche Zellen formatiert werden sollen Option von der Wählen Sie einen Regeltyp Listenfeld;
  • Und dann diese Formel eingeben: =MOD(COUNTA($A$2:$A2),2)=0 in die Formatieren Sie Werte, bei denen diese Formel wahr ist Textfeld ein.
  • Note: A2 ist die erste Zelle Ihres Datenbereichs.

3. Dann klick Format Taste, um die gehen Format Cells Dialogbox. Unter dem Füllen Wählen Sie auf der Registerkarte eine Farbe aus, mit der Sie die Zeilen hervorheben möchten, siehe Screenshot:

4. Klicken Sie OK > OK um die Dialoge zu schließen, und die Zeilen mit den verbundenen Zellen werden mit der von Ihnen angegebenen Farbe gefüllt, siehe Screenshot:

5. Klicken Sie weiter Home > Bedingte Formatierung > Neue Regel öffnen Neue Formatierungsregel Führen Sie im Dialogfeld die folgenden Vorgänge aus:

  • Auswählen Verwenden Sie eine Formel, um zu bestimmen, welche Zellen formatiert werden sollen Option von der Wählen Sie einen Regeltyp Listenfeld;
  • Und dann diese Formel eingeben: =MOD(COUNTA($A$2:$A2),2)=1 in die Formatieren Sie Werte, bei denen diese Formel wahr ist Textfeld ein.
  • Dann klick Format Taste, um eine andere Farbe auszuwählen, mit der Sie die Zeilen hervorheben möchten.
  • Note: A2 ist die erste Zelle Ihres Datenbereichs.

6. Und dann klicken OK > OK , um die Dialoge zu schließen, und jetzt können Sie sehen, dass der ausgewählte Datenbereich abwechselnd mit zwei verschiedenen Farben schattiert wurde, basierend auf den verbundenen Zellen, wie im folgenden Screenshot gezeigt:


Färben Sie alternative Zeilen für verbundene Zellen mit VBA-Code

Außer der normalen bedingten Formatierung können Sie auch einen VBA-Code verwenden, um auf einfache Weise alternative Zeilenfarben für verbundene Zellen anzuwenden.

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Dann klick Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Farbige alternative Zeilen für verbundene Zellen

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. Dann drücken F5 Schlüssel, um diesen Code auszuführen. Wählen Sie im ersten eingeblendeten Feld den Datenbereich aus, den Sie verwenden möchten, siehe Screenshot:

4. Wählen Sie im zweiten Eingabeaufforderungsfeld die Spalte mit verbundenen Zellen aus, siehe Screenshot:

5. Und dann klicken OK Schaltfläche werden die Zeilen abwechselnd basierend auf den verbundenen Zellen schattiert, wie im folgenden Screenshot gezeigt:


Video: Wechselnde Zeilen für verbundene Zellen einfärben


Weitere relative Artikel:

  • Filtern Sie alle zugehörigen Daten aus verbundenen Zellen
  • Angenommen, Ihr Datenbereich enthält eine Spalte mit zusammengeführten Zellen. Jetzt müssen Sie diese Spalte mit zusammengeführten Zellen filtern, um alle Zeilen anzuzeigen, die mit jeder zusammengeführten Zelle verknüpft sind (siehe folgende Screenshots). In Excel können Sie mit der Filterfunktion nur das erste Element filtern, das den zusammengeführten Zellen zugeordnet ist. In diesem Artikel werde ich erläutern, wie alle zugehörigen Daten aus zusammengeführten Zellen in Excel gefiltert werden.
  • Kopieren Sie verbundene Zellen und fügen Sie sie in einzelne Zellen ein
  • Wenn Sie die zusammengeführten Zellen kopieren und in andere Zellen einfügen, werden die zusammengeführten Zellen normalerweise direkt eingefügt. Sie möchten diese zusammengeführten Zellen jedoch wie im folgenden Screenshot in einzelne Zellen einfügen, damit Sie die Daten nach Bedarf verarbeiten können. In diesem Artikel werde ich darüber sprechen, wie zusammengeführte Zellen in einzelne Zellen kopiert und eingefügt werden.
  • Löschen Sie den Inhalt mehrerer verbundener Zellen
  • Wenn Sie ein großes Arbeitsblatt haben, das mehrere zusammengeführte Zellen enthält, möchten Sie jetzt den gesamten Inhalt der zusammengeführten Zellen löschen, aber die zusammengeführten Zellen beibehalten. Normalerweise können Sie versuchen, die Funktion Suchen und Ersetzen anzuwenden, um zuerst alle zusammengeführten Zellen auszuwählen, und dann die Entf-Taste drücken, um den Wert zu löschen. Es wird jedoch die Warnmeldung "Das können wir einer zusammengeführten Zelle nicht tun" angezeigt. Wie können Sie in diesem Fall die Werte in zusammengeführten Zellen löschen, die zusammengeführten Zellen jedoch schnell in Excel belassen?
  • Zusammengeführte Zellen automatisch nummerieren
  • Wie können wir Seriennummern in eine Liste zusammengeführter Zellen unterschiedlicher Größe in Excel einfügen? Zunächst müssen Sie den Autofill-Griff ziehen, um die zusammengeführten Zellen zu füllen. In diesem Fall wird jedoch die folgende Warnmeldung angezeigt, und wir können die zusammengeführten Zellen nicht füllen.

  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen und Speichern von Daten; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen und Summe / Durchschnitt... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Lieblingsformeln und schnell einfügen, Bereiche, Diagramme und Bilder; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Pivot-Tabellengruppierung nach Wochennummer, Wochentag und mehr ... Entsperrte, gesperrte Zellen anzeigen durch verschiedene Farben; Markieren Sie Zellen mit Formel / Name...
kte tab 201905
  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
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