2 εύκολοι τρόποι ενοποίησης σειρών στο Excel σας

Λύσεις Excel Οκτώβριος 3, 2025

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

Πολλοί χρήστες συχνά πρέπει να συγχωνεύσουν τις διπλές σειρές και να αθροίσουν τις αντίστοιχες τιμές στο Excel. Για παράδειγμα, έχω μια σειρά δεδομένων σε ένα φύλλο εργασίας του Excel που περιέχει πολλές διπλές καταχωρήσεις, όπως το παρακάτω στιγμιότυπο οθόνης. Ως εκ τούτου, θέλω να ενοποιήσω τις διπλές σειρές και να αθροίσω τις αντίστοιχες τιμές σε μια άλλη στήλη. Θα είναι σίγουρα ενοχλητικό εάν το κάνω χειροκίνητα. Επομένως, χρησιμοποιώ τους ακόλουθους 2 τρόπους για να το πραγματοποιήσω.

Μέθοδος 1: Χρησιμοποιήστε τη συνάρτηση "Ενοποίηση"

Πρώτα απ 'όλα, κάντε κλικ σε ένα κενό κελί όπου θέλετε να τοποθετήσετε τα συγχωνευμένα και αθροισμένα δεδομένα.
Στη συνέχεια, μεταβείτε στην καρτέλα "Δεδομένα" και κάντε κλικ στο κουμπί "Ενοποίηση".
Στο αναδυόμενο παράθυρο διαλόγου, βεβαιωθείτε ότι έχει επιλεγεί το "Άθροισμα" στο πλαίσιο "Λειτουργία".
Στη συνέχεια, κάντε κλικ στο κουμπί.
Αργότερα, επιλέξτε το εύρος που θέλετε να ενοποιήσετε και κάντε κλικ στο κουμπί.
Μετά από αυτό, κάντε κλικ στο κουμπί "Προσθήκη" στο παράθυρο διαλόγου "Ενοποίηση".
Στη συνέχεια, επιλέξτε την επιλογή "Επάνω σειρά" και "Αριστερή στήλη".
Τέλος, κάντε κλικ στο κουμπί "OK".
Αμέσως, οι σειρές ενοποιούνται, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.

Μέθοδος 2: Χρησιμοποιήστε τον κώδικα Excel VBA

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

Sub MergeRowsSumValues()
    Dim objSelectedRange As Excel.Range
    Dim varAddressArray As Variant
    Dim nStartRow, nEndRow As Integer
    Dim strFirstColumn, strSecondColumn As String
    Dim objDictionary As Object
    Dim nRow As Integer
    Dim objNewWorkbook As Excel.Workbook
    Dim objNewWorksheet As Excel.Worksheet
    Dim varItems, varValues As Variant
 
    On Error GoTo ErrorHandler
    Set objSelectedRange = Excel.Application.Selection
    varAddressArray = Split(objSelectedRange.Address(, False), ":")
    nStartRow = Split(varAddressArray(0), "$")(1)
    strFirstColumn = Split(varAddressArray(0), "$")(0)
    nEndRow = Split(varAddressArray(1), "$")(1)
    strSecondColumn = Split(varAddressArray(1), "$")(0)
 
    Set objDictionary = CreateObject("Scripting.Dictionary")
 
    For nRow = nStartRow To nEndRow
        strItem = ActiveSheet.Range(strFirstColumn & nRow).Value
        strValue = ActiveSheet.Range(strSecondColumn & nRow).Value
  
        If objDictionary.Exists(strItem) = False Then
           objDictionary.Add strItem, strValue
        Else
           objDictionary.Item(strItem) = objDictionary.Item(strItem) + strValue
        End If
    Next
 
    Set objNewWorkbook = Excel.Application.Workbooks.Add
    Set objNewWorksheet = objNewWorkbook.Sheets(1)
 
    varItems = objDictionary.keys
    varValues = objDictionary.items
 
    nRow = 0
    For i = LBound(varItems) To UBound(varItems)
        nRow = nRow + 1
        With objNewWorksheet
             .Cells(nRow, 1) = varItems(i)
             .Cells(nRow, 2) = varValues(i)
        End With
    Next
    objNewWorksheet.Columns("A:B").AutoFit
 
ErrorHandler:
    Exit sub
End Sub

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

Σύγκριση

	Πλεονεκτήματα	Μειονεκτήματα
Μέθοδος 1	Εύκολο στη λειτουργία	Δεν είναι δυνατή η επεξεργασία των δύο στηλών που δεν βρίσκονται το ένα δίπλα στο άλλο
Μέθοδος 2	1. Βολικό για επαναχρησιμοποίηση	1. Λίγο δύσκολο να γίνει κατανοητό για τους αρχάριους VBA
Μέθοδος 2	2. Δεν θα μπερδευτεί το αρχικό φύλλο Excel στο ότι έβαλε τα συγχωνευμένα δεδομένα στο νέο αρχείο	2. Δεν είναι δυνατή η επεξεργασία των δύο στηλών που δεν βρίσκονται το ένα δίπλα στο άλλο

Όταν αντιμετωπίζετε σφάλματα του Excel

Όπως όλοι γνωρίζουμε, το Excel μπορεί να διακόπτεται κατά καιρούς. Υπό αυτήν την περίπτωση, στη χειρότερη περίπτωση, το τρέχον αρχείο Excel ενδέχεται να είναι κατεστραμμένο απευθείας. Εκείνη τη στιγμή, δεν έχετε άλλη επιλογή από το να προσπαθήσετε Ανάκτηση του Excel. Σας ζητά είτε να ζητήσετε βοήθεια από επαγγελματίες είτε να χρησιμοποιήσετε ένα εξειδικευμένο εργαλείο επιδιόρθωσης του Excel, όπως DataNumen Excel Repair.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων διεφθαρμένος SQL Server και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com