Πώς να δημιουργήσετε έναν κώδικα μακροεντολής για να επιτύχετε την εύρεση και αντικατάσταση κειμένου στο Excel;

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

Δημιουργήστε έναν κώδικα μακροεντολής για να επιτύχετε την εύρεση και αντικατάσταση κειμένου στο Excel

Δημιουργήστε έναν κώδικα μακροεντολής για να επιτύχετε την εύρεση και αντικατάσταση κειμένου στο Excel

Κάντε τα εξής για να δημιουργήσετε έναν κώδικα μακροεντολής για να επιτύχετε την εύρεση και αντικατάσταση κειμένου στο Excel.

1. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κωδικός VBA: Δημιουργήστε έναν κώδικα μακροεντολής για να επιτύχετε την εύρεση και αντικατάσταση κειμένου στο Excel

Sub FindandReplaceText()
'Update by Extendoffice 2018/5/24
    Dim xFind As String
    Dim xRep As String
    Dim xRg As Range
    On Error Resume Next
    Set xRg =Cells
    xFind = Application.InputBox("word to search:", "Kutools for Excel", , , , , 2)
    xRep = Application.InputBox("word to replace:", "Kutools for Excel", , , , , 2)
    If xFind = "False" Or xRep = "False" Then Exit Sub
    xRg.Replace xFind, xRep, xlPart, xlByRows, False, False, False, False
End Sub

3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα.

4. Στην πρώτη Kutools για Excel πλαίσιο διαλόγου, εισαγάγετε το κείμενο ή την τιμή που θα αναζητήσετε και, στη συνέχεια, κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

5. Στο δεύτερο Kutools για Excel πλαίσιο διαλόγου, εισαγάγετε το κείμενο ή την τιμή που θα αντικαταστήσετε και κάντε κλικ στο OK κουμπί.

Στη συνέχεια, όλα τα συγκεκριμένα κείμενα αντικαθίστανται αμέσως με το κείμενο που θέλετε.

Σημείωση: Αυτός ο κωδικός εφαρμόζεται στο ενεργό φύλλο εργασίας.

Σχετικά άρθρα:

• Πώς να βρείτε και να αντικαταστήσετε όλα τα κενά κελιά με συγκεκριμένο αριθμό ή κείμενο στο Excel;
• Πώς να αντικαταστήσετε κόμματα με νέες γραμμές (Alt + Enter) σε κελιά στο Excel;
• Πώς να βρείτε και να αντικαταστήσετε τα ονόματα καρτελών φύλλων στο Excel;
• Πώς να βρείτε την τιμή σε ένα κελί με λίστα διαχωρισμένη με κόμμα στο Excel;
• Πώς να βρείτε τομή δύο λιστών στηλών στο Excel;