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

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

• Με τη συνάρτηση Ενοποίηση
• Με ένα ισχυρό χαρακτηριστικό - Kutools
• Με Συγκεντρωτικό Πίνακα
• Με κωδικό VBA

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

Το Consolidate είναι ένα χρήσιμο εργαλείο για να ενοποιούμε πολλά φύλλα εργασίας ή σειρές στο Excel, με αυτήν τη δυνατότητα, μπορούμε να συνδυάσουμε διπλότυπες σειρές και να συνοψίσουμε τις αντίστοιχες τιμές τους γρήγορα και εύκολα. Κάντε τα παρακάτω βήματα:

Βήμα 1: Επιλέξτε ένα κελί προορισμού

Επιλέξτε πού θέλετε να εμφανίζονται τα συγκεντρωτικά δεδομένα.

Βήμα 2: Πρόσβαση στη συνάρτηση ενοποίησης και ρύθμιση της ενοποίησης

1. Πατήστε ημερομηνία > Παγίωση, δείτε το στιγμιότυπο οθόνης:
   
2. Στο Παγίωση κουτί διαλόγου:
   • (1.) Επιλέξτε Άθροισμα από Λειτουργία αναπτυσσόμενη λίστα
   • (2.) Κάντε κλικ για να επιλέξετε το εύρος που θέλετε να ενοποιήσετε στο Αναφορά κουτί;
   • (3.) Έλεγχος Κορυφαία σειρά και το Αριστερή στήλη από Χρησιμοποιήστε ετικέτες στο επιλογή;
   • (4.) Τέλος, κάντε κλικ OK κουμπί.
   • 

Αποτέλεσμα:

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

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

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

Μετά την εγκατάσταση Kutools for Excel, επιλέξτε το εύρος δεδομένων και, στη συνέχεια, κάντε κλικ Kutools > Συγχώνευση & διαχωρισμός > Σύνθετες σειρές συνδυασμού.

Στο Σύνθετες σειρές συνδυασμού πλαίσιο διαλόγου, ορίστε τις ακόλουθες λειτουργίες:

1. Κάντε κλικ στο όνομα της στήλης που θέλετε να συνδυάσετε τα διπλότυπα με βάση, εδώ, θα κάνω κλικ στο Προϊόν και, στη συνέχεια, θα επιλέξω Πρωτεύων κλειδί από την αναπτυσσόμενη λίστα στο Επιχείρηση στήλη;
2. Στη συνέχεια, επιλέξτε το όνομα της στήλης που θέλετε να αθροίσετε τις τιμές και, στη συνέχεια, επιλέξτε Άθροισμα από την αναπτυσσόμενη λίστα στο Επιχείρηση στήλη;
3. Όσο για τις άλλες στήλες, μπορείτε να επιλέξετε τη λειτουργία που χρειάζεστε, όπως να συνδυάσετε τις τιμές με ένα συγκεκριμένο διαχωριστικό ή να εκτελέσετε έναν συγκεκριμένο υπολογισμό. (αυτό το βήμα μπορεί να αγνοηθεί εάν έχετε μόνο δύο στήλες)
4. Επιτέλους, μπορείτε να κάνετε προεπισκόπηση του συνδυασμένου αποτελέσματος και, στη συνέχεια, κάντε κλικ OK κουμπί.
5. 

Αποτέλεσμα:

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

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

Ο Συγκεντρωτικός Πίνακας στο Excel παρέχει έναν δυναμικό τρόπο αναδιάταξης, ομαδοποίησης και σύνοψης δεδομένων. Αυτή η λειτουργία γίνεται απίστευτα χρήσιμη όταν αντιμετωπίζετε ένα σύνολο δεδομένων γεμάτο με διπλές εγγραφές και χρειάζεται να αθροίσετε τις αντίστοιχες τιμές.

Βήμα 1: Δημιουργία συγκεντρωτικού πίνακα

1. Επιλέξτε το εύρος δεδομένων. Και μετά, πηγαίνετε στο Κύριο θέμα καρτέλα και κάντε κλικ στο κουμπί Pivot πίνακα, δείτε το στιγμιότυπο οθόνης:
   
2. Στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε πού θέλετε να τοποθετείται η αναφορά Συγκεντρωτικού Πίνακα, μπορείτε να την τοποθετήσετε σε ένα νέο φύλλο ή σε ένα υπάρχον φύλλο όπως χρειάζεστε. Στη συνέχεια, κάντε κλικ OK. Δείτε το στιγμιότυπο οθόνης:
   
3. Τώρα, ένας Συγκεντρωτικός Πίνακας εισάγεται στο επιλεγμένο κελί προορισμού. Δείτε στιγμιότυπο οθόνης:
   

Βήμα 2: Διαμόρφωση του Συγκεντρωτικού Πίνακα:

1. Στο Πεδία Συγκεντρωτικού Πίνακα παράθυρο, σύρετε το πεδίο που περιέχει διπλότυπα στο Σειρά περιοχή. Αυτό θα ομαδοποιήσει τα διπλότυπά σας.
2. Στη συνέχεια, σύρετε τα πεδία με τις τιμές που θέλετε να αθροίσετε στο Αξίες περιοχή. Από προεπιλογή, το Excel αθροίζει τις τιμές. Δείτε το demo παρακάτω:
3. 

Αποτέλεσμα:

Ο Συγκεντρωτικός Πίνακας εμφανίζει τώρα τα δεδομένα σας με διπλότυπα συνδυασμένα και τις τιμές τους συνοψισμένες, προσφέροντας μια σαφή και συνοπτική προβολή για ανάλυση. Δείτε στιγμιότυπο οθόνης:

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

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

Βήμα 1: Ανοίξτε το πρόγραμμα επεξεργασίας της μονάδας φύλλου VBA και αντιγράψτε τον κώδικα

1. Κρατήστε πατημένο το ALT + F11 πλήκτρα στο Excel για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Πατήστε Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
   Κωδικός VBA: Συνδυάστε διπλές σειρές και αθροίστε τις τιμές

   Sub CombineDuplicateRowsAndSumForMultipleColumns()
   'Update by Extendoffice
       Dim SourceRange As Range, OutputRange As Range
       Dim Dict As Object
       Dim DataArray As Variant
       Dim i As Long, j As Long
       Dim Key As Variant
       Dim ColCount As Long
       Dim SumArray() As Variant
       Dim xArr As Variant
       Set SourceRange = Application.InputBox("Select the original range:", "Kutools for Excel", Type:=8)
       If SourceRange Is Nothing Then Exit Sub
       ColCount = SourceRange.Columns.Count
       Set OutputRange = Application.InputBox("Select a cell for output:", "Kutools for Excel", Type:=8)
       If OutputRange Is Nothing Then Exit Sub
       Set Dict = CreateObject("Scripting.Dictionary")
       DataArray = SourceRange.Value
       For i = 1 To UBound(DataArray, 1)
           Key = DataArray(i, 1)
           If Not Dict.Exists(Key) Then
               ReDim SumArray(1 To ColCount - 1)
               For j = 2 To ColCount
                   SumArray(j - 1) = DataArray(i, j)
               Next j
               Dict.Add Key, SumArray
           Else
               xArr = Dict(Key)
               For j = 2 To ColCount
                   xArr(j - 1) = xArr(j - 1) + DataArray(i, j)
               Next j
               Dict(Key) = xArr
           End If
       Next i
       OutputRange.Resize(Dict.Count, ColCount).ClearContents
       i = 1
       For Each Key In Dict.Keys
           OutputRange.Cells(i, 1).Value = Key
           For j = 1 To ColCount - 1
               OutputRange.Cells(i, j + 1).Value = Dict(Key)(j)
           Next j
           i = i + 1
       Next Key
       Set Dict = Nothing
       Set SourceRange = Nothing
       Set OutputRange = Nothing
   End Sub
   

Βήμα 2: Εκτελέστε τον κώδικα

1. Αφού επικολλήσετε αυτόν τον κωδικό, πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα. Στο πλαίσιο προτροπής, επιλέξτε το εύρος δεδομένων που θέλετε να συνδυάσετε και να αθροίσετε. Και μετά, κάντε κλικ OK.
   
2. Και στο επόμενο πλαίσιο προτροπής, επιλέξτε ένα κελί όπου θα εξάγετε το αποτέλεσμα και κάντε κλικ OK.
   

Αποτέλεσμα:

Τώρα, οι διπλότυπες σειρές συγχωνεύονται και οι αντίστοιχες τιμές τους έχουν συνοψιστεί. Δείτε στιγμιότυπο οθόνης:

Ο συνδυασμός και η άθροιση διπλότυπων σειρών στο Excel μπορεί να είναι απλός και αποτελεσματικός. Επιλέξτε από την εύκολη λειτουργία Consolidate, τα προηγμένα Kutools, τους αναλυτικούς Συγκεντρωτικούς Πίνακες ή την ευέλικτη κωδικοποίηση VBA για να βρείτε μια λύση που ταιριάζει στις δεξιότητες και τις ανάγκες σας. Εάν ενδιαφέρεστε να εξερευνήσετε περισσότερες συμβουλές και κόλπα για το Excel, ο ιστότοπός μας προσφέρει χιλιάδες εκπαιδευτικά προγράμματα, παρακαλούμε κάντε κλικ εδώ για πρόσβαση σε αυτά. Σας ευχαριστούμε που διαβάσατε και ανυπομονούμε να σας παρέχουμε περισσότερες χρήσιμες πληροφορίες στο μέλλον!

Σχετικά Άρθρα: