Πώς να συνδυάσετε πολλές σειρές σε μία με βάση διπλότυπα στο Excel;
Ίσως, έχετε τα ακόλουθα δεδομένα στιγμιότυπου οθόνης, στη στήλη Όνομα προϊόντος Α, υπάρχουν μερικά διπλά στοιχεία και τώρα πρέπει να καταργήσετε τις διπλές καταχωρίσεις στη στήλη Α, αλλά να συνδυάσετε τις αντίστοιχες τιμές στη στήλη Β, δείτε στιγμιότυπα οθόνης:
Έχετε μερικούς αποτελεσματικούς τρόπους για να επιλύσετε αυτήν την εργασία;
Συνδυάστε πολλές διπλές σειρές σε μία με τον κώδικα VBA
Συνδυάστε πολλές διπλές σειρές σε ένα Kutools για Excel
Συνδυάστε πολλές διπλές σειρές και αθροίστε / μέσες τιμές με το Kutools για Excel
Συνδυάστε πολλές διπλές σειρές σε μία με τον κώδικα VBA
Ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να συνδυάσετε διπλές σειρές με βάση την τιμή της στήλης Α και ο ακόλουθος κώδικας εφαρμόζεται μόνο για δύο στήλες. Επομένως, εάν έχετε δεδομένα δύο στηλών, αυτός ο κωδικός θα σας βοηθήσει.
1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Παράθυρο Microsoft Visual Basic for Applications.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: συνδυάστε πολλές σειρές σε μία
Sub CombineRows()
'Update 20131202
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
xvalue = arr(i, 1)
If Dic.Exists(xvalue) Then
Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
Else
Dic(arr(i, 1)) = arr(i, 2)
End If
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub
3. Στη συνέχεια πατήστε F5 κλειδί και εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει να επιλέξετε ένα εύρος που πρέπει να συνδυάσετε. Δείτε το στιγμιότυπο οθόνης:
4. Και στη συνέχεια κάντε κλικ στο κουμπί OK, οι τιμές στη στήλη Β έχουν συνδυαστεί σε μία εγγραφή και διαχωρίζονται με κενά.
:
1. Αυτός ο κώδικας μπορεί να καταστρέψει τα αρχικά δεδομένα, όταν τα χρησιμοποιείτε, καλύτερα να δημιουργήσετε αντίγραφα ασφαλείας των δεδομένων πρώτα.
2. Αυτός ο κωδικός εφαρμόζεται μόνο για δύο στήλες, εάν έχετε περισσότερες από δύο στήλες, αυτός ο κωδικός θα συνδυάζει μόνο τις δύο πρώτες στήλες και θα αφαιρέσει άλλα δεδομένα στηλών. Όταν χρησιμοποιείτε αυτόν τον κωδικό, πρέπει να είστε προσεκτικοί.
Συνδυάστε πολλές διπλές σειρές σε ένα Kutools για Excel
Τώρα που ο παραπάνω κώδικας έχει ορισμένους περιορισμούς και κινδύνους, υπάρχει ένας εύχρηστος και ασφαλής τρόπος για να ολοκληρώσετε αυτήν την εργασία; Με Kutools για Excel'S Σύνθετες σειρές συνδυασμού βοηθητικό πρόγραμμα, μπορείτε να καταργήσετε γρήγορα πολλές διπλές σειρές στις στήλες στις οποίες βασίζεστε και να συγχωνεύσετε ή να κάνετε ορισμένους υπολογισμούς για άλλες εγγραφές σε κατάλληλα κελιά.
Kutools για Excel περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία Excel. Δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Αποκτήστε το τώρα.
Μετά την εγκατάσταση του Kutools για Excel, κάντε τα εξής:
1. Επιλέξτε τα δεδομένα εύρους που θέλετε να συνδυάσετε διπλότυπα.
2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools > Μετατροπέας περιεχομένου > Σύνθετες σειρές συνδυασμού. Δείτε το στιγμιότυπο οθόνης:
3. Στην Σύνθετες σειρές συνδυασμού πλαίσιο διαλόγου, επιλέξτε το όνομα της στήλης ως τις βασικές στήλες στις οποίες θέλετε να συνδυάσετε τιμές βάσει και, στη συνέχεια, κάντε κλικ στο Βασικές στήλες. Δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια, κάντε κλικ στη στήλη που πρέπει να συνδυάσετε τις τιμές τους σε μία εγγραφή και, στη συνέχεια, κάντε κλικ Συνδυάστε λειτουργίες Και επιλέξτε Συνδυάστε μόνο με διαχωριστικόκαι επιλέξτε ένα διαχωριστικό που χρειάζεστε για να διαχωρίσετε τις συνδυασμένες τιμές από τη σωστή λίστα. Δείτε το στιγμιότυπο οθόνης:
5. Αφού ολοκληρώσετε τις ρυθμίσεις, κάντε κλικ στο OKκαι τα δεδομένα σας θα συγχωνευθούν με βάση τις στήλες κλειδιών και θα διαχωριστούν από διαχωριστικά.
Σημείωση: Εάν δεν χρειάζεται να ρυθμίσετε τις λειτουργίες για τις υπόλοιπες στήλες, διατηρήστε την προεπιλεγμένη κατάσταση.
Συνδυάστε πολλές διπλές σειρές και αθροίστε / μέσες τιμές με το Kutools για Excel
Με αυτό το πολυλειτουργικό Σύνθετες σειρές συνδυασμού βοηθητικό πρόγραμμα, μπορείτε να συνδυάσετε διπλές σειρές και να κάνετε μερικούς υπολογισμούς για τις τιμές επίσης.
1. Επιλέξτε τα δεδομένα εύρους που θέλετε να συνδυάσετε διπλότυπα.
2. μεταβείτε στο Σύνθετες σειρές συνδυασμού κουτί διαλόγου;
- (1.) Επιλέξτε ένα όνομα στήλης ως βασική στήλη στην οποία θέλετε να υπολογίσετε άλλες τιμές στηλών βάσει και, στη συνέχεια, κάντε κλικ στο Βασικές στήλες;
- (2.) Επιλέξτε τη στήλη που πρέπει να κάνετε ορισμένους υπολογισμούς για τις τιμές και, στη συνέχεια, κάντε κλικ στο Συνδυάστε λειτουργίες > Συνδυάστε τον υπολογισμό, στη συνέχεια, επιλέξτε έναν τύπο υπολογισμού που χρειάζεστε, σε αυτήν την περίπτωση, επιλέγω Άθροισμα. Δείτε το στιγμιότυπο οθόνης:
3. Εάν δεν χρειάζεται να ορίσετε τις λειτουργίες για τις υπόλοιπες στήλες, διατηρήστε την προεπιλεγμένη κατάσταση και κάντε κλικ στο OK, και οι διπλές τιμές στη στήλη Α θα συγχωνευτούν και οι αντίστοιχες τιμές τους στη στήλη Β θα προστεθούν. Δείτε στιγμιότυπα οθόνης:
:
1. Εάν ελέγξετε Τα δεδομένα μου έχουν κεφαλίδες επιλογή, οι κεφαλίδες σας (η πρώτη σειρά) του εύρους θα αγνοηθούν όταν εφαρμόζετε αυτό το βοηθητικό πρόγραμμα.
2. Χρησιμοποιήστε μορφοποιημένες τιμές: θα διατηρήσει τη μορφοποίηση των τιμών αφού συνδυάσει τα διπλά κελιά.
3. Αυτό το βοηθητικό πρόγραμμα δεν είναι διαθέσιμο για φιλτράρισμα δεδομένων.
Κάντε κλικ για να μάθετε περισσότερα σχετικά με αυτήν τη λειτουργία Advanced Combine Rows.
Σχετικό άρθρο:
Συνδυάστε διπλές σειρές και αθροίστε τις τιμές
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!