Πώς να συγχωνεύσετε γρήγορα παρακείμενες σειρές με ίδια δεδομένα στο Excel;
Ας υποθέσουμε ότι έχετε ένα φύλλο εργασίας με τα ίδια δεδομένα στις παρακείμενες σειρές και τώρα θέλετε να συγχωνεύσετε τα ίδια κελιά σε ένα κελί, έτσι ώστε τα δεδομένα να φαίνονται τακτοποιημένα και όμορφα. Πώς συγχωνεύετε γειτονικές σειρές με τα ίδια δεδομένα γρήγορα και εύκολα; Σήμερα, θα σας παρουσιάσω έναν γρήγορο τρόπο επίλυσης αυτού του προβλήματος.
Συγχώνευση παρακείμενων σειρών των ίδιων δεδομένων με τον κώδικα VBA
Φυσικά μπορείτε να συγχωνεύσετε τα ίδια δεδομένα με Συγχώνευση & Κέντρο εντολή, αλλά εάν υπάρχουν εκατοντάδες κελιά που πρέπει να συγχωνευτούν, αυτή η μέθοδος θα είναι χρονοβόρα. Έτσι, ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να συγχωνεύσετε εύκολα τα ίδια δεδομένα.
1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο Μονάδα μέτρησηςπαράθυρο.
Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
For i = 1 To xRows - 1
For j = i + 1 To xRows
If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
Exit For
End If
Next
WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
i = j - 1
Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Στη συνέχεια πατήστε το F5 κλειδί για την εκτέλεση αυτού του κώδικα, στην οθόνη εμφανίζεται ένα παράθυρο διαλόγου για την επιλογή εύρους για εργασία. Δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί OK, τα ίδια δεδομένα στη στήλη Α θα συγχωνευτούν μαζί. Δείτε το στιγμιότυπο οθόνης:
Συγχώνευση γειτονικών σειρών ίδιων δεδομένων με το Kutools για Excel
Με την Συγχώνευση των ίδιων κελιών χρησιμότητα του Kutools για Excel, μπορείτε να συγχωνεύσετε γρήγορα τις ίδιες τιμές σε πολλές στήλες με ένα κλικ.
Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. |
Μετά την εγκατάσταση Kutools για Excel, μπορείτε να κάνετε τα εξής:
1. Επιλέξτε τις στήλες που θέλετε να συγχωνεύσετε τις παρακείμενες σειρές με τα ίδια δεδομένα.
2. Κλίκ Kutools > Συγχώνευση & διαχωρισμός > Συγχώνευση ίδιων κελιών, δείτε το στιγμιότυπο οθόνης:
3. Και τότε τα ίδια δεδομένα στις επιλεγμένες στήλες έχουν συγχωνευτεί σε ένα κελί. Δείτε το στιγμιότυπο οθόνης:
Κάντε κλικ για λήψη του Kutools για Excel και δωρεάν δοκιμή τώρα!
Για να μάθετε περισσότερα σχετικά με αυτό, επισκεφθείτε αυτό Συγχώνευση ίδιων κελιών χαρακτηριστικό.
Επίδειξη: Συγχώνευση των ίδιων κελιών σε ένα κελί ή κατάργηση συγχώνευσης για τη συμπλήρωση διπλών τιμών:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!