Πώς να συγχωνεύσετε αυτόματα κενά κελιά πάνω / αριστερά στο Excel;
Σε αυτό το άρθρο, θα μιλήσω για τη συγχώνευση κενών κελιών πάνω ή αριστερά αυτόματα όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Στην πραγματικότητα, δεν υπάρχει ενσωματωμένο βοηθητικό πρόγραμμα που μπορεί να χειριστεί αυτήν την εργασία, αλλά οι κώδικες μακροεντολών μπορούν.
Συγχώνευση κενών παραπάνω | ||
Συγχώνευση κενών αριστερά | ||
Συγχώνευση κενών κελιών παραπάνω με βάση μια στήλη
Συγχώνευση κενών κελιών παραπάνω (λειτουργεί μόνο για μία στήλη)
Συγχώνευση κενών κελιών παραπάνω με βάση μια στήλη
Ας υποθέσουμε ότι υπάρχει μια σειρά δεδομένων σε τρεις στήλες και τώρα θέλετε να συγχωνεύσετε τα παραπάνω δεδομένα με βάση τη στήλη Γ.
1. Τύπος Alt + F11 keys για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές κάντε κλικ στο παράθυρο Κύριο θέμα > Μονάδα μέτρησης. Δείτε το στιγμιότυπο οθόνης:
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
3. Τύπος F5 για να εκτελέσετε τον κώδικα και, στη συνέχεια, εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει να επιλέξετε μια περιοχή που θέλετε να εργαστείτε. Δείτε το στιγμιότυπο οθόνης:
4. κλικ OK, τότε τα κενά κελιά έχουν συγχωνευτεί παραπάνω. Δείτε το στιγμιότυπο οθόνης:
Συγχώνευση κενών κελιών παραπάνω (λειτουργεί μόνο για μία στήλη)
Εδώ είναι ένας κώδικας μακροεντολής που μπορεί να συγχωνεύσει τα κενά κελιά παραπάνω στην καθορισμένη στήλη.
1. Τύπος Alt + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές κάντε κλικ στο παράθυρο Κύριο θέμα > Μονάδα μέτρησης. Δείτε το στιγμιότυπο οθόνης:
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
3. Τύπος F5 για να εκτελέσετε τον κώδικα και εμφανίζεται ένα παράθυρο διαλόγου για να επιλέξετε ένα εύρος στηλών. Δείτε το στιγμιότυπο οθόνης:
4. Κάντε κλικ στο OK. Και τα κενά κελιά στην επιλογή έχουν συγχωνευτεί παραπάνω.
Συγχώνευση κενών κελιών
Εάν θέλετε να συγχωνεύσετε κενά κελιά που έχουν απομείνει, ο ακόλουθος κώδικας μπορεί να σας βοηθήσει.
1. Τύπος Alt + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για το παράθυρο Εφαρμογές και κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης. Δείτε το στιγμιότυπο οθόνης:
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
3. Τύπος F5 για να εκτελέσετε τον κώδικα και εμφανίζεται ένα παράθυρο διαλόγου για να επιλέξετε ένα εύρος. Δείτε το στιγμιότυπο οθόνης:
4. κλικ OK. Τα κενά κελιά έχουν συγχωνευτεί αριστερά.
Συγχώνευση κενών αριστερά | ||
Συγχώνευση των ίδιων κελιών ή κατάργηση συγχώνευσης κελιού
|
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!