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

Πώς να συνδυάσετε πολλές σειρές σε μία με βάση διπλότυπα στο Excel;

Ίσως, έχετε τα ακόλουθα δεδομένα στιγμιότυπου οθόνης, στη στήλη Όνομα προϊόντος Α, υπάρχουν μερικά διπλά στοιχεία και τώρα πρέπει να καταργήσετε τις διπλές καταχωρίσεις στη στήλη Α, αλλά να συνδυάσετε τις αντίστοιχες τιμές στη στήλη Β, δείτε στιγμιότυπα οθόνης:

doc-Advanced-Combine1 -2 doc-Advanced-Combine2

Έχετε μερικούς αποτελεσματικούς τρόπους για να επιλύσετε αυτήν την εργασία;

Συνδυάστε πολλές διπλές σειρές σε μία με τον κώδικα 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 κλειδί και εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει να επιλέξετε ένα εύρος που πρέπει να συνδυάσετε. Δείτε το στιγμιότυπο οθόνης:

doc-Advanced-Combine3

4. Και στη συνέχεια κάντε κλικ στο κουμπί OK, οι τιμές στη στήλη Β έχουν συνδυαστεί σε μία εγγραφή και διαχωρίζονται με κενά.

doc-Advanced-Combine4

:

1. Αυτός ο κώδικας μπορεί να καταστρέψει τα αρχικά δεδομένα, όταν τα χρησιμοποιείτε, καλύτερα να δημιουργήσετε αντίγραφα ασφαλείας των δεδομένων πρώτα.

2. Αυτός ο κωδικός εφαρμόζεται μόνο για δύο στήλες, εάν έχετε περισσότερες από δύο στήλες, αυτός ο κωδικός θα συνδυάζει μόνο τις δύο πρώτες στήλες και θα αφαιρέσει άλλα δεδομένα στηλών. Όταν χρησιμοποιείτε αυτόν τον κωδικό, πρέπει να είστε προσεκτικοί.


βέλος μπλε δεξιά φούσκαΣυνδυάστε πολλές διπλές σειρές σε ένα Kutools για Excel

Τώρα που ο παραπάνω κώδικας έχει ορισμένους περιορισμούς και κινδύνους, υπάρχει ένας εύχρηστος και ασφαλής τρόπος για να ολοκληρώσετε αυτήν την εργασία; Με Kutools για Excel'S Σύνθετες σειρές συνδυασμού βοηθητικό πρόγραμμα, μπορείτε να καταργήσετε γρήγορα πολλές διπλές σειρές στις στήλες στις οποίες βασίζεστε και να συγχωνεύσετε ή να κάνετε ορισμένους υπολογισμούς για άλλες εγγραφές σε κατάλληλα κελιά.

Kutools για Excel περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία Excel. Δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Αποκτήστε το τώρα.

Μετά την εγκατάσταση του Kutools για Excel, κάντε τα εξής:

1. Επιλέξτε τα δεδομένα εύρους που θέλετε να συνδυάσετε διπλότυπα.

doc-Advanced-Combine5

2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools > Μετατροπέας περιεχομένου > Σύνθετες σειρές συνδυασμού. Δείτε το στιγμιότυπο οθόνης:

doc-Advanced-Combine6

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

doc-Advanced-Combine7

4. Στη συνέχεια, κάντε κλικ στη στήλη που πρέπει να συνδυάσετε τις τιμές τους σε μία εγγραφή και, στη συνέχεια, κάντε κλικ Συνδυάστε λειτουργίες Και επιλέξτε Συνδυάστε μόνο με διαχωριστικόκαι επιλέξτε ένα διαχωριστικό που χρειάζεστε για να διαχωρίσετε τις συνδυασμένες τιμές από τη σωστή λίστα. Δείτε το στιγμιότυπο οθόνης:

doc-Advanced-Combine8

5. Αφού ολοκληρώσετε τις ρυθμίσεις, κάντε κλικ στο OKκαι τα δεδομένα σας θα συγχωνευθούν με βάση τις στήλες κλειδιών και θα διαχωριστούν από διαχωριστικά.

doc-Advanced-Combine9

Σημείωση: Εάν δεν χρειάζεται να ρυθμίσετε τις λειτουργίες για τις υπόλοιπες στήλες, διατηρήστε την προεπιλεγμένη κατάσταση.


βέλος μπλε δεξιά φούσκαΣυνδυάστε πολλές διπλές σειρές και αθροίστε / μέσες τιμές με το Kutools για Excel

Με αυτό το πολυλειτουργικό Σύνθετες σειρές συνδυασμού βοηθητικό πρόγραμμα, μπορείτε να συνδυάσετε διπλές σειρές και να κάνετε μερικούς υπολογισμούς για τις τιμές επίσης.

1. Επιλέξτε τα δεδομένα εύρους που θέλετε να συνδυάσετε διπλότυπα.

2. μεταβείτε στο Σύνθετες σειρές συνδυασμού κουτί διαλόγου;

  • (1.) Επιλέξτε ένα όνομα στήλης ως βασική στήλη στην οποία θέλετε να υπολογίσετε άλλες τιμές στηλών βάσει και, στη συνέχεια, κάντε κλικ στο Βασικές στήλες;
  • (2.) Επιλέξτε τη στήλη που πρέπει να κάνετε ορισμένους υπολογισμούς για τις τιμές και, στη συνέχεια, κάντε κλικ στο Συνδυάστε λειτουργίες > Συνδυάστε τον υπολογισμό, στη συνέχεια, επιλέξτε έναν τύπο υπολογισμού που χρειάζεστε, σε αυτήν την περίπτωση, επιλέγω Άθροισμα. Δείτε το στιγμιότυπο οθόνης:

doc-Advanced-Combine10

3. Εάν δεν χρειάζεται να ορίσετε τις λειτουργίες για τις υπόλοιπες στήλες, διατηρήστε την προεπιλεγμένη κατάσταση και κάντε κλικ στο OK, και οι διπλές τιμές στη στήλη Α θα συγχωνευτούν και οι αντίστοιχες τιμές τους στη στήλη Β θα προστεθούν. Δείτε στιγμιότυπα οθόνης:

doc-Advanced-Combine11 -2 doc-Advanced-Combine12

:

1. Εάν ελέγξετε Τα δεδομένα μου έχουν κεφαλίδες επιλογή, οι κεφαλίδες σας (η πρώτη σειρά) του εύρους θα αγνοηθούν όταν εφαρμόζετε αυτό το βοηθητικό πρόγραμμα.

2. Χρησιμοποιήστε μορφοποιημένες τιμές: θα διατηρήσει τη μορφοποίηση των τιμών αφού συνδυάσει τα διπλά κελιά.

3. Αυτό το βοηθητικό πρόγραμμα δεν είναι διαθέσιμο για φιλτράρισμα δεδομένων.

Κάντε κλικ για να μάθετε περισσότερα σχετικά με αυτήν τη λειτουργία Advanced Combine Rows.


Σχετικό άρθρο:

Συνδυάστε διπλές σειρές και αθροίστε τις τιμές

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have used the code above successfully in the past however today, it is deleting column B. Looks like it's just removing duplicates...not sure what the issue is.

Sample Data
Reece, Ashley G01-Registered-UWG
Reece, Chris G02-Registered-KSU
Reece, Chris G03-Dropped-KSU
Reece, Jayden G02-Registered-UNG
Reece, Jayden G02-Withdrawn-UNG
This comment was minimized by the moderator on the site
I have in column A

1 Cast
2 Crew
3 Hiring
4 Cast
5 Hiring
6 Crew

I need these unique CAST CREW AND HIRING in another column without delete in column A entries.

Ex: I need (after formula)

1 Cast
2 Crew
3 Hiring

Is it possible by formula?
This comment was minimized by the moderator on the site
Above Macro only Combine the limited cell(e.g 20 cells) in b column. How to Combine more cells
This comment was minimized by the moderator on the site
Same - 2021 and this still only works if you have like 20 rows...
This comment was minimized by the moderator on the site
I've found that the "Combine multiple duplicate rows and sum/average the values" feature within KUTools does not work if the numbers in the row have a comma or period. This makes the tool unusable for combining and summing currency fields (which is why I tried the product in first place). I'm currently using the trial version which states that it is full-functioned; is it possible that this works in the paid version?
This comment was minimized by the moderator on the site
Same here. I was about to purchase because the tools are very nice, but figured I would try it first. Combine never works. I tried it for about 3 weeks now and it always locks up. No matter the power of my computer (ran on my at home powerhouse computer, same issue)
I kept cutting down to less and less data to see if it would work but it still would not.
The last one I tried was 4 columns and 100k rows and it still locked up. Not very useful unless you have like < 100 rows or something.
This comment was minimized by the moderator on the site
Same here, I filtered my data all the way down to 4 columns and 100k rows and it still work not work. I have tried this for 3 weeks now and unable to successfully complete my task. Kutools will only work if you have very few rows.
This comment was minimized by the moderator on the site
[quote]I've found that the "Combine multiple duplicate rows and sum/average the values" feature within KUTools does not work if the numbers in the row have a comma or period. This makes the tool unusable for combining and summing currency fields (which is why I tried the product in first place). I'm currently using the trial version which states that it is full-functioned; is it possible that this works in the paid version?By David Greene[/quote] Sorry, we will fix it in next version.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations