Πώς να αντικαταστήσετε όλους τους χαρακτήρες σε έναν πίνακα με άλλους χαρακτήρες
Ξέρεις ότι? Τα δεδομένα που λαμβάνετε από επιχειρηματικούς συνεργάτες ή μετά την εισαγωγή δεδομένων περιέχουν λανθασμένους χαρακτήρες. Μπορεί να συμβεί ότι ένα δεκαδικό σημείο εμφανίζεται όπου είναι απαραίτητο. Or μπορεί να συμβεί να εμφανίζονται καμπύλες μεταξύ μεμονωμένων ψηφίων.
Μπορείτε να χρησιμοποιήσετε την εντολή ΑΝΤΙΚΑΤΑΣΤΑΣΗ για να βρείτε αυτούς τους χαρακτήρες και να τους αντικαταστήσετε με άλλους χαρακτήρες. Χρειάζεται όμως πολλή προσπάθεια αν θέλετε να κάνετε αυτή τη διαδικασία πιο συχνά. Εξοικονομείτε χρόνο εκτελώντας την εργασία χρησιμοποιώντας μια μακροεντολή. Μπορείτε να καλέσετε ξανά αυτήν τη μακροεντολή γρήγορα και εύκολα στην ίδια κατάσταση στο μέλλον.
Για να συμπεριλάβετε τη μακροεντολή σε ένα κενό βιβλίο εργασίας, ανοίξτε ένα νέο βιβλίο εργασίας σε όλες τις εκδόσεις του Excel χρησιμοποιώντας τον συνδυασμό πλήκτρων CTRL N. Στη συνέχεια, πατήστε το συνδυασμό πλήκτρων ALT F11 για να εμφανιστεί ο επεξεργαστής VBA. Εκεί επιλέξτε την εντολή INSERT - MODULE. Στη συνέχεια, εισαγάγετε την ακόλουθη μακροεντολή:
Αντικατάσταση δευτερευόντων χαρακτήρων ()
Στο Σφάλμα Συνέχιση Επόμενο
Dim Cell As Range
Απενεργοποίηση αναζήτησης ως συμβολοσειράς
Ελαφρύ αντικατάσταση με ως συμβολοσειρά
SearchFor = "."
ReplaceBy = ","
Για κάθε κελί στο ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
Επόμενο κελί
Σφάλμα GoTo 0
Τέλος υπο
Η μακροεντολή αντικαθιστά το δεκαδικό σημείο με ένα δεκαδικό σημείο σε όλα τα κελιά που χρησιμοποιούνται στο ενεργό φύλλο εργασίας. Για να καλέσετε τη μακροεντολή, ενεργοποιήστε το φύλλο εργασίας που θέλετε, πατήστε το συνδυασμό πλήκτρων ALT F8 και επιλέξτε τη μακροεντολή CHARACTER EXCHANGE.
Για να ελέγξετε ποιο περιεχόμενο αναζητείται και αντικαθίσταται, προσαρμόστε τις δύο μεταβλητές SUCHENNACH και REPLACE BY στη μακροεντολή.
