Πώς να βρείτε και να αντικαταστήσετε πολλές τιμές ταυτόχρονα στο Excel;
Όπως όλοι γνωρίζουμε, μπορούμε να χρησιμοποιήσουμε τη λειτουργία Εύρεση και αντικατάστασης για να βρούμε πολλά ίδια κελιά και να τα αντικαταστήσουμε με μια τιμή όπως χρειάζεστε. Αλλά μερικές φορές, πρέπει να εφαρμόσετε ταυτόχρονα πολλές αντικαταστάσεις. Για παράδειγμα, έχω μια σειρά δεδομένων και τώρα θέλω να αντικαταστήσω όλα τα μήλα σε κόκκινα μήλα, πορτοκάλια σε πράσινα πορτοκάλια, μπανάνες σε κίτρινες μπανάνες και ούτω καθεξής όπως ακολουθούν τα στιγμιότυπα οθόνης που εμφανίζονται, έχετε κάποιες καλές ιδέες για να λύσετε αυτήν την εργασία Προέχω?
Βρείτε και αντικαταστήστε πολλές τιμές ταυτόχρονα με τον κώδικα VBA
Βρείτε και αντικαταστήστε πολλές τιμές ταυτόχρονα με τον κώδικα VBA
Εάν έχετε κουραστεί να βρείτε και να αντικαταστήσετε τις τιμές ξανά και ξανά, ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να αντικαταστήσετε πολλές τιμές με τα απαραίτητα κείμενα ταυτόχρονα.
1. Δημιουργήστε τις συνθήκες που θέλετε να χρησιμοποιήσετε οι οποίες περιέχουν τις αρχικές τιμές και τις νέες τιμές. Δείτε το στιγμιότυπο οθόνης:
2. Στη συνέχεια, κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.
3. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο παράθυρο Module.
Κωδικός VBA: Βρείτε και αντικαταστήστε πολλές τιμές ταυτόχρονα
Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub
4. Στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα, στο αναδυόμενο πλαίσιο προτροπής, προσδιορίστε το εύρος δεδομένων που θέλετε να αντικατασταθούν οι τιμές με νέες τιμές.
5. Κλίκ OKκαι εμφανίζεται ένα άλλο πλαίσιο προτροπής για να σας υπενθυμίσει ότι επιλέγετε τα κριτήρια που έχετε δημιουργήσει στο βήμα 1. Δείτε το στιγμιότυπο οθόνης:
6. Στη συνέχεια κάντε κλικ στο κουμπί OK, όλες οι συγκεκριμένες τιμές έχουν αντικατασταθεί με τις νέες τιμές όπως χρειάζεστε αμέσως.
Σχετικά άρθρα:
Πώς να βρείτε και να αντικαταστήσετε συγκεκριμένο κείμενο σε πλαίσια κειμένου;
Πώς να βρείτε και να αντικαταστήσετε κείμενο σε τίτλους γραφημάτων στο Excel;
Πώς να βρείτε και να αντικαταστήσετε κείμενο εντός σχολίων στο Excel;
Πώς να αλλάξετε πολλές διαδρομές υπερσύνδεσης ταυτόχρονα στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!