Πώς να αφαιρέσετε / διαγράψετε όλα τα κενά μετά τον τελευταίο χαρακτήρα στο Excel;

Για τη διαγραφή όλων των κενών μετά τον τελευταίο χαρακτήρα (τελικά διαστήματα) από κελιά, τι θα κάνατε; Αυτό το άρθρο θα σας δείξει δύο μεθόδους για να το αντιμετωπίσετε.

Καταργήστε όλα τα κενά μετά τον τελευταίο χαρακτήρα με τον κωδικό VBA
Καταργήστε εύκολα όλα τα κενά μετά τον τελευταίο χαρακτήρα με το Kutools για Excel

Καταργήστε όλα τα κενά μετά τον τελευταίο χαρακτήρα με τον κωδικό VBA

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

1. Επιλέξτε τα κελιά που χρειάζεστε για να αφαιρέσετε όλα τα κενά μετά τον τελευταίο χαρακτήρα και, στη συνέχεια, πατήστε άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παρακαλώ κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στο παράθυρο Module.

Κωδικός VBA: Καταργήστε όλα τα κενά μετά τον τελευταίο χαρακτήρα

Sub NoSpaces()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xCell.Value = RTrim(xCell.Value)
    Next
    Application.ScreenUpdating = True
End Sub

3. Πάτα το F5 για να εκτελέσετε τον κωδικό και μετά Kutools για Excel εμφανίζεται το παράθυρο διαλόγου, επιλέξτε το εύρος που χρειάζεστε για να καταργήσετε όλα τα κενά μετά τον τελευταίο χαρακτήρα και, στη συνέχεια, κάντε κλικ στο OK κουμπί.

Τώρα όλα τα κενά μετά τον τελευταίο χαρακτήρα των επιλεγμένων κελιών αφαιρούνται αμέσως.

Καταργήστε εύκολα όλα τα κενά μετά τον τελευταίο χαρακτήρα με το Kutools για Excel

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

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

2. Στο Κατάργηση Spaces πλαίσιο διαλόγου, επιλέξτε το Χώροι που ακολουθούν και στη συνέχεια κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

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

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