Μετάβαση στο κύριο περιεχόμενο

Πώς να χρωματίσετε εναλλακτικές σειρές για συγχωνευμένα κελιά στο Excel;

Είναι πολύ χρήσιμο να μορφοποιούμε εναλλακτικές σειρές με διαφορετικό χρώμα σε μεγάλα δεδομένα για να σαρώνουμε τα δεδομένα, αλλά, μερικές φορές, μπορεί να υπάρχουν κάποια συγχωνευμένα κελιά στα δεδομένα σας. Για να επισημάνετε τις σειρές εναλλάξ με διαφορετικό χρώμα για τα συγχωνευμένα κελιά όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, πώς θα μπορούσατε να λύσετε αυτό το πρόβλημα στο Excel;

Εναλλακτικές χρωματικές σειρές για συγχωνευμένα κελιά με Μορφοποίηση υπό όρους

Εναλλακτικές χρωματικές σειρές για συγχωνευμένα κελιά με κώδικα VBA


Εναλλακτικές χρωματικές σειρές για συγχωνευμένα κελιά με Μορφοποίηση υπό όρους

Στο Excel, η ισχυρή δυνατότητα-Μορφοποίηση υπό όρους μπορεί να σας βοηθήσει να επιτύχετε αυτό το έργο όσο το δυνατόν γρηγορότερα, ακολουθήστε τα παρακάτω βήματα:

1. Επιλέξτε την περιοχή δεδομένων που περιέχει τα συγχωνευμένα κελιά που θέλετε να χρωματίσετε εναλλάξ και, στη συνέχεια, κάντε κλικ Αρχική > Μορφοποίηση υπό όρους > Νέος κανόνας, δείτε το στιγμιότυπο οθόνης:

2. Στο αναδυόμενο Νέος κανόνας μορφοποίησης πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:

  • Αγορά Χρησιμοποιήστε έναν τύπο για να προσδιορίσετε ποια κελιά θα μορφοποιηθούν Επιλογή από το Επιλέξτε έναν τύπο κανόνα πλαίσιο λίστας;
  • Και μετά εισάγετε αυτόν τον τύπο: =MOD(COUNTA($A$2:$A2),2)=0 μέσα στο Μορφοποιήστε τιμές όπου ισχύει αυτός ο τύπος πλαίσιο κειμένου.
  • Note: A2 είναι το πρώτο κελί της περιοχής δεδομένων σας.

3. Στη συνέχεια, κάντε κλικ στο κουμπί Μορφή για να μεταβείτε στο κύτταρα μορφή κουτί διαλόγου. Σύμφωνα με το Γέμισμα καρτέλα, επιλέξτε ένα χρώμα με το οποίο θέλετε να επισημάνετε τις σειρές, δείτε στιγμιότυπο οθόνης:

4. Κλίκ OK > OK για να κλείσετε τα παράθυρα διαλόγου και οι σειρές με τα συγχωνευμένα κελιά γεμίζουν με το χρώμα που καθορίσατε, δείτε στιγμιότυπο οθόνης:

5. Κάντε κλικ Αρχική > Μορφοποίηση υπό όρους > Νέος κανόνας για να ανοίξετε το Νέος κανόνας μορφοποίησης πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:

  • Αγορά Χρησιμοποιήστε έναν τύπο για να προσδιορίσετε ποια κελιά θα μορφοποιηθούν Επιλογή από το Επιλέξτε έναν τύπο κανόνα πλαίσιο λίστας;
  • Και μετά εισάγετε αυτόν τον τύπο: =MOD(COUNTA($A$2:$A2),2)=1 μέσα στο Μορφοποιήστε τιμές όπου ισχύει αυτός ο τύπος πλαίσιο κειμένου.
  • Στη συνέχεια, κάντε κλικ στο κουμπί Μορφή κουμπί για να επιλέξετε άλλο χρώμα που θέλετε να επισημάνετε τις σειρές.
  • Note: 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;
  • Αντιγραφή και επικόλληση συγχωνευμένων κελιών σε μεμονωμένα κελιά
  • Κανονικά, όταν αντιγράφετε τα συγχωνευμένα κελιά και τα επικολλάτε σε άλλα κελιά, τα συγχωνευμένα κελιά θα επικολληθούν απευθείας. Ωστόσο, θέλετε να επικολλήσετε αυτά τα συγχωνευμένα κελιά σε μεμονωμένα κελιά όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, έτσι ώστε να μπορείτε να χειριστείτε τα δεδομένα όπως χρειάζεστε. Αυτό το άρθρο, θα μιλήσω για τον τρόπο αντιγραφής και επικόλλησης συγχωνευμένων κελιών σε μεμονωμένα κελιά.
  • Διαγράψτε τα περιεχόμενα πολλών συγχωνευμένων κελιών
  • Εάν έχετε ένα μεγάλο φύλλο εργασίας που περιέχει πολλά συγχωνευμένα κελιά και τώρα, θέλετε να διαγράψετε όλα τα περιεχόμενα των συγχωνευμένων κελιών, αλλά να διατηρήσετε τα συγχωνευμένα κελιά. Κανονικά, μπορείτε να προσπαθήσετε να εφαρμόσετε τη λειτουργία Εύρεση και αντικατάστασης για να επιλέξετε πρώτα όλα τα συγχωνευμένα κελιά και, στη συνέχεια, πατήστε το πλήκτρο Διαγραφή για να διαγράψετε την τιμή, ωστόσο, θα λάβετε ένα προειδοποιητικό μήνυμα "Δεν μπορούμε να το κάνουμε σε ένα συγχωνευμένο κελί". Σε αυτήν την περίπτωση, πώς διαγράφετε τις τιμές σε συγχωνευμένα κελιά αλλά αφήνετε γρήγορα τα συγχωνευμένα κελιά στο Excel;
  • Αυτόματος αριθμός συγχωνευμένων κελιών
  • Πώς θα μπορούσαμε να συμπληρώσουμε αριθμούς σειράς σε μια λίστα συγχωνευμένων κελιών διαφορετικού μεγέθους στο Excel; Πρώτα στο μυαλό μας είναι να σύρετε τη λαβή αυτόματης συμπλήρωσης για να γεμίσετε τα συγχωνευμένα κελιά, αλλά, σε αυτήν την περίπτωση, θα λάβουμε το ακόλουθο προειδοποιητικό μήνυμα και δεν μπορούμε να γεμίσουμε τα συγχωνευμένα κελιά.

  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών και τήρηση δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές και άθροισμα / μέσος όρος... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Αγαπημένα και γρήγορη εισαγωγή τύπων, Σειρά, Διαγράμματα και Εικόνες; Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή 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