Σε περίπτωση που θέλετε έναν κωδικό VBA για να αφαιρέσετε όλους τους χώρους που ακολουθούν μόνο στο ενεργό φύλλο, αυτό το άρθρο σίγουρα θα σας βοηθήσει. Πολλές φορές αφήσαμε ένα κενό στο τέλος κατά λάθος ή μερικές φορές αντιγράφουμε δεδομένα από τον ιστό και δεν το παρατηρούμε. Σε αυτό το άρθρο, θα μάθουμε πώς να εξαλείψουμε το χώρο που έχει απομείνει κατά λάθος.
Ερώτηση): Στο Excel, μπορούμε να χρησιμοποιήσουμε τη συνάρτηση TRIM με SUBSTITUTE & CHAR δηλαδή = TRIM (SUBSTITUTE (A1, CHAR (160), "")) για να αφαιρέσουμε τον κενό χώρο στο τέλος οποιουδήποτε κειμένου.
Θα ήθελα μια μακροεντολή να με βοηθήσει να αφαιρέσω όλους τους περιττούς χώρους που απομένουν στο τέλος της συμβολοσειράς.
Για να λάβετε τον κωδικό για την αφαίρεση χώρου στο τέλος του κειμένου. πρέπει να ακολουθήσουμε τα παρακάτω βήματα για να ξεκινήσουμε τον επεξεργαστή VB.
- Κάντε κλικ στην καρτέλα Προγραμματιστής
- Από την ομάδα κωδικών, επιλέξτε Visual Basic
Αντιγράψτε τον ακόλουθο κώδικα στην ενότητα φύλλου εργασίας
Sub trimspace ()
Dim c As Range, rng Σταθερά ως εύρος
Στο Σφάλμα Συνέχιση Επόμενο
Ορισμός rngConstants = ActiveSheet.UsedRange.SpecialCells (2, 2)
Σφάλμα GoTo 0
If Not rngConstants Is Nothing Τότε
"βελτιστοποίηση της απόδοσης
Application.ScreenUpdating = Λάθος
Application.Calculation = xlCalculationManual
'περικοπές κυψελών συμπεριλαμβανομένου του φορτίου 160
Για κάθε γ Σε σταθερές rng
c.Value = Trim $ (Application.Clean (Replace (c.Value, Chr (160), "")))
Επόμενο γ
"Επαναφορά ρυθμίσεων
Application.ScreenUpdating = True
Εφαρμογή. Υπολογισμός = xl Υπολογισμός Αυτόματος
Τέλος εαν
Τέλος υπο
- Αυτό θα αφαιρέσει όλους τους χώρους στο τέλος.
Σημείωση: Η παραπάνω μακροεντολή θα εκτελείται μόνο στο ενεργό φύλλο.
Με αυτόν τον τρόπο, μπορούμε να αφαιρέσουμε τους πίσω χώρους στο τέλος, χρησιμοποιώντας τον κώδικα VBA.
Λήψη - Κατάργηση χώρου μετά από VBA - xlsm