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

Πώς να συγχωνεύσετε αυτόματα κενά κελιά πάνω / αριστερά στο Excel;

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

Συγχώνευση κενών παραπάνω    
doc συγχώνευση κενό πάνω αριστερά 1 doc βέλος δεξιά doc συγχώνευση κενό πάνω αριστερά 2

 Συγχώνευση κενών αριστερά    
doc συγχώνευση κενό πάνω αριστερά 3 doc βέλος δεξιά doc συγχώνευση κενό πάνω αριστερά 4

Συγχώνευση κενών κελιών παραπάνω με βάση μια στήλη

Συγχώνευση κενών κελιών παραπάνω (λειτουργεί μόνο για μία στήλη)

Συγχώνευση κενών κελιών


Συγχώνευση κενών κελιών παραπάνω με βάση μια στήλη

Ας υποθέσουμε ότι υπάρχει μια σειρά δεδομένων σε τρεις στήλες και τώρα θέλετε να συγχωνεύσετε τα παραπάνω δεδομένα με βάση τη στήλη Γ.
doc συγχώνευση κενό πάνω αριστερά 1

1. Τύπος Alt + F11 keys για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές κάντε κλικ στο παράθυρο Κύριο θέμα > Μονάδα μέτρησης. Δείτε το στιγμιότυπο οθόνης:
doc συγχώνευση κενό πάνω αριστερά 5

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

VBA: Συγχώνευση κενό παραπάνω με βάση την επόμενη στήλη

Sub MergeCells()
'UpdatebyExtendoffice2017025
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Value = "" Then
            Range(xCell, xCell.Offset(-1, 0)).Merge
        End If
    Next
End Sub

doc συγχώνευση κενό πάνω αριστερά 6

3. Τύπος F5 για να εκτελέσετε τον κώδικα και, στη συνέχεια, εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει να επιλέξετε μια περιοχή που θέλετε να εργαστείτε. Δείτε το στιγμιότυπο οθόνης:
doc συγχώνευση κενό πάνω αριστερά 7

4. κλικ OK, τότε τα κενά κελιά έχουν συγχωνευτεί παραπάνω. Δείτε το στιγμιότυπο οθόνης:
doc συγχώνευση κενό πάνω αριστερά 2


Συγχώνευση κενών κελιών παραπάνω (λειτουργεί μόνο για μία στήλη)

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

1. Τύπος Alt + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές κάντε κλικ στο παράθυρο Κύριο θέμα > Μονάδα μέτρησης. Δείτε το στιγμιότυπο οθόνης:
doc συγχώνευση κενό πάνω αριστερά 9

2. Επικολλήστε τον παρακάτω κώδικα στο σενάριο. Δείτε το στιγμιότυπο οθόνης:

VBA: Συγχώνευση κενών κελιών παραπάνω

Sub mergeblankswithabove()
'UpdatebyExtendoffice20171025
    Dim I As Long
    Dim xRow As Long
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range (single column):", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
        MsgBox "Only work for single column", , "KuTools For Excel"
        Exit Sub
    End If
    xRow = xRg.Rows.Count
    Set xRg = xRg(xRow)
    For I = xRow To 1 Step -1
        Set xCell = xRg.Offset(I - xRow, 0)
        Debug.Print xCell.Address
        If xCell.Value = "" Then Range(xCell, xCell.Offset(-1, 0)).Merge
    Next
End Sub

doc συγχώνευση κενό πάνω αριστερά 10

3. Τύπος F5 για να εκτελέσετε τον κώδικα και εμφανίζεται ένα παράθυρο διαλόγου για να επιλέξετε ένα εύρος στηλών. Δείτε το στιγμιότυπο οθόνης:
doc συγχώνευση κενό πάνω αριστερά 11

4. Κάντε κλικ στο OK. Και τα κενά κελιά στην επιλογή έχουν συγχωνευτεί παραπάνω.

doc συγχώνευση κενό πάνω αριστερά 12 doc βέλος δεξιά doc συγχώνευση κενό πάνω αριστερά 13

Συγχώνευση κενών κελιών

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

1. Τύπος Alt + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για το παράθυρο Εφαρμογές και κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης. Δείτε το στιγμιότυπο οθόνης:
doc συγχώνευση κενό πάνω αριστερά 14

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

VBA: Συγχώνευση κενών αριστερά

Sub mergeblankswithleft()
'UpdatebyExtendoffice20171025
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Value = "" Then Range(xCell, xCell.Offset(0, -1)).Merge
    Next
End Sub

doc συγχώνευση κενό πάνω αριστερά 15

3. Τύπος F5 για να εκτελέσετε τον κώδικα και εμφανίζεται ένα παράθυρο διαλόγου για να επιλέξετε ένα εύρος. Δείτε το στιγμιότυπο οθόνης:
doc συγχώνευση κενό πάνω αριστερά 16

4. κλικ OK. Τα κενά κελιά έχουν συγχωνευτεί αριστερά.

 Συγχώνευση κενών αριστερά    
doc συγχώνευση κενό πάνω αριστερά 3 doc βέλος δεξιά doc συγχώνευση κενό πάνω αριστερά 4

Συγχώνευση των ίδιων κελιών ή κατάργηση συγχώνευσης κελιού

doc συγχώνευση unmerge

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

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

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

kte καρτέλα 201905


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you very much!
This comment was minimized by the moderator on the site
Thanks for sharing , it so useful for me.
This comment was minimized by the moderator on the site
it's not working :) Excel 365
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations