Πώς να διαγράψετε όλες τις κενές γραμμές ή μόνο την πρώτη γραμμή στο κελί στο Excel;
Ενδέχεται να λάβετε ένα βιβλίο εργασίας με πολλές γραμμές που αναμιγνύονται με κενά στα κελιά. Πώς να διαγράψετε αυτές τις κενές γραμμές στα κελιά; Και τι γίνεται με τη διαγραφή μόνο της πρώτης γραμμής; Αυτό το άρθρο θα σας βοηθήσει να το αντιμετωπίσετε βήμα προς βήμα.
Διαγράψτε όλες τις κενές γραμμές σε κελιά με κωδικό VBA
Διαγράψτε μόνο την πρώτη γραμμή σε κελιά με κωδικό VBA
Διαγράψτε όλες τις κενές γραμμές σε κελιά με κωδικό VBA
Όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, για να διαγράψετε όλες τις κενές γραμμές στα κελιά, μπορείτε να εκτελέσετε τον ακόλουθο κώδικα VBA για να το ολοκληρώσετε.
1. Πάτα το άλλος + F11 πλήκτρα στο πληκτρολόγιό σας και μετά ανοίγει α Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο Μονάδα μέτρησης παράθυρο.
Κωδικός VBA: Διαγράψτε όλες τις κενές γραμμές στα κελιά
Sub DoubleReturn()
Dim xRng As Range, xCell As Range
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
For I = 1 To Len(xCell) - Len(WorksheetFunction.Substitute(xCell, Chr(10), ""))
xCell = Replace(xCell, Chr(10) + Chr(10), Chr(10))
Next
Next
End Sub
3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Στη συνέχεια επιλέξτε τα κελιά με κενές γραμμές που θα διαγράψετε στο Kutools για Excel κουτί διαλόγου. Και τέλος κάντε κλικ στο OK κουμπί.
Στη συνέχεια, μπορείτε να δείτε ότι όλες οι κενές γραμμές έχουν διαγραφεί από τα καθορισμένα κελιά όπως φαίνεται παρακάτω στιγμιότυπο οθόνης. Τα κείμενα βρίσκονται ακόμα σε διαφορετικές γραμμές.
Διαγράψτε μόνο την πρώτη γραμμή σε κελιά με κωδικό VBA
Όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, για να διαγράψετε την πρώτη γραμμή στο κελί A2 και A3, ο ακόλουθος κώδικας VBA μπορεί να βοηθήσει.
1. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο Μονάδα μέτρησης παράθυρο.
Κωδικός VBA: Διαγράψτε μόνο την πρώτη γραμμή στα κελιά
Option Explicit
Sub RemoveFirstLine(ByRef Target As Range)
Dim xCell As Range
For Each xCell In Target.Cells
xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))
Next
End Sub
Sub StartRemove()
Dim xRng As Range
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
RemoveFirstLine xRng
End Sub
3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Στο αναδυόμενο Kutools για Excel παράθυρο διαλόγου, επιλέξτε τα κελιά που χρειάζεστε για να διαγράψετε μόνο την πρώτη γραμμή και, στη συνέχεια, κάντε κλικ στο OK κουμπί.
Στη συνέχεια, μπορείτε να δείτε ότι όλες οι πρώτες γραμμές έχουν διαγραφεί από καθορισμένα κελιά όπως φαίνεται παρακάτω.
Σχετικό άρθρο:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!