Note: The other languages of the website are Google-translated. Back to English
Σύνδεση  \/ 
x
or
x
Εγγραφή  \/ 
x

or

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

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

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

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

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

Συνδυάστε πολλές διπλές σειρές σε ένα Kutools για Excel

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

Office Tab Ενεργοποιήστε την επεξεργασία με καρτέλες και την περιήγηση στο Office και κάντε την εργασία σας πολύ πιο εύκολη ...
Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%
  • Επαναχρησιμοποίηση οτιδήποτε: Προσθέστε τους πιο χρησιμοποιούμενους ή σύνθετους τύπους, γραφήματα και οτιδήποτε άλλο στα αγαπημένα σας και χρησιμοποιήστε τους γρήγορα στο μέλλον.
  • Περισσότερα από 20 χαρακτηριστικά κειμένου: Εξαγωγή αριθμού από συμβολοσειρά κειμένου. Εξαγωγή ή κατάργηση μέρους των κειμένων. Μετατροπή αριθμών και νομισμάτων σε αγγλικές λέξεις.
  • Συγχώνευση εργαλείων: Πολλαπλά βιβλία εργασίας και φύλλα σε ένα. Συγχώνευση πολλαπλών κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων. Συγχώνευση διπλών σειρών και αθροίσματος.
  • Διαχωριστικά εργαλεία: Διαχωρίστε δεδομένα σε πολλαπλά φύλλα με βάση την τιμή. Ένα βιβλίο εργασίας για πολλαπλά αρχεία Excel, PDF ή CSV. Μία στήλη σε πολλές στήλες.
  • Επικόλληση παράλειψης Κρυφές / φιλτραρισμένες σειρές; Καταμέτρηση και άθροισμα ανά χρώμα φόντου; Αποστολή εξατομικευμένων μηνυμάτων ηλεκτρονικού ταχυδρομείου σε πολλούς παραλήπτες μαζικά.
  • Σούπερ φίλτρο: Δημιουργήστε προηγμένα σχήματα φίλτρων και εφαρμόστε σε οποιοδήποτε φύλλο. Είδος ανά εβδομάδα, ημέρα, συχνότητα και άλλα. Φίλτρο με έντονη γραφή, φόρμουλες, σχόλια ...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Λειτουργεί με το Office 2007-2019 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας.

βέλος μπλε δεξιά φούσκαΣυνδυάστε πολλές διπλές σειρές σε μία με τον κώδικα 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.


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

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


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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2019 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50%και μειώνει εκατοντάδες κλικ ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ashley · 3 years ago
    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
  • To post as a guest, your comment is unpublished.
    Muveen · 4 years ago
    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?
  • To post as a guest, your comment is unpublished.
    Ilaiyaraja · 5 years ago
    Above Macro only Combine the limited cell(e.g 20 cells) in b column. How to Combine more cells
    • To post as a guest, your comment is unpublished.
      NewYears1978 · 4 months ago
      Same - 2021 and this still only works if you have like 20 rows...
  • To post as a guest, your comment is unpublished.
    David Greene · 7 years ago
    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?
    • To post as a guest, your comment is unpublished.
      NewYears1978 · 4 months ago
      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.
    • To post as a guest, your comment is unpublished.
      JP · 4 months ago
      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.
    • To post as a guest, your comment is unpublished.
      Admin-jay · 7 years ago
      [quote name="David Greene"]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?[/quote]
      Sorry, we will fix it in next version.