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

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

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

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

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

Συνδυάστε τις αντίστοιχες σειρές που βασίζονται σε διπλές τιμές σε μια άλλη στήλη με το Kutools για Excel

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

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

1. Κάντε κλικ σε ένα κελί όπου θέλετε να εντοπίσετε το αποτέλεσμα στο τρέχον φύλλο εργασίας σας.

2. Πηγαίνετε στο κλικ ημερομηνία > Παγίωση, δείτε το στιγμιότυπο οθόνης:

3. Στην Παγίωση κουτί διαλόγου:

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

4. Αφού ολοκληρώσετε τις ρυθμίσεις, κάντε κλικ στο OK, και τα αντίγραφα συνδυάζονται και αθροίζονται. Δείτε το στιγμιότυπο οθόνης:

Note: Εάν το εύρος δεν έχει τη γραμμή κεφαλίδας, πρέπει να καταργήσετε την επιλογή Κορυφαία σειρά από το Χρησιμοποιήστε ετικέτες στο επιλογή.

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

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

1. Κρατήστε πατημένο το ALT + F11 και μετά ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

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

Sub CombineRows()
'Updateby Extendoffice
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)
    Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 2)
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, οι διπλές σειρές έχουν συνδυαστεί και οι τιμές προστίθενται.

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

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

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

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

1. Επιλέξτε το εύρος που χρειάζεστε και κάντε κλικ Kutools > Συγχώνευση & διαχωρισμός > Σύνθετες σειρές συνδυασμού. Δείτε το στιγμιότυπο οθόνης:

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

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

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

Κάντε κλικ εδώ για να μάθετε περισσότερα για το Advanced Combine Rows.

Συνδυάστε τις αντίστοιχες σειρές που βασίζονται σε διπλές τιμές σε μια άλλη στήλη με το Kutools για Excel

Μερικές φορές, θέλετε να συνδυάσετε τις σειρές με βάση τις διπλές τιμές σε μια άλλη στήλη, το Σύνθετες σειρές συνδυασμού of Kutools για Excel μπορεί επίσης να κάνει μια χάρη για εσάς, κάντε τα εξής:

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

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

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

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

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

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

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

---

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

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

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

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη... Αγορά... 

---

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

• Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
• Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
• Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη... Αγορά...