Come creare un codice macro per eseguire la funzione Trova e Sostituisci testo in Excel?

Normalmente, utilizziamo la funzione Trova e Sostituisci incorporata per cercare e sostituire valori in Excel. In realtà, puoi trovare e sostituire direttamente il testo in Excel con un codice macro. In questo articolo, imparerai come creare un codice macro per eseguire la funzione Trova e Sostituisci testo in Excel.

Crea un codice macro per eseguire la funzione Trova e Sostituisci testo in Excel

Crea un codice macro per eseguire la funzione Trova e Sostituisci testo in Excel

Procedi come segue per creare un codice macro che esegua la funzione Trova e Sostituisci testo in Excel.

1. Premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo. Successivamente, copia il seguente codice VBA nella finestra del codice.

Codice VBA: Crea un codice macro per eseguire la funzione Trova e Sostituisci testo in 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. Premi il tasto F5 per eseguire il codice.

4. Nel primo riquadro di dialogo di Kutools per Excel, inserisci il testo o il valore che desideri cercare e poi clicca sul pulsante OK. Vedi screenshot:

5. Nel secondo riquadro di dialogo di Kutools per Excel, inserisci il testo o il valore che vuoi sostituire e clicca sul pulsante OK.

Tutti i testi specificati verranno immediatamente sostituiti con il testo desiderato.

Nota: Questo codice si applica al foglio di lavoro attivo.

Articoli correlati:

• Come trovare e sostituire tutte le celle vuote con un certo numero o testo in Excel?
• Come sostituire le virgole con nuove righe (Alt + Invio) nelle celle in Excel?
• Come trovare e sostituire i nomi delle schede dei fogli in Excel?
• Come trovare un valore in una cella con una lista separata da virgole in Excel?
• Come trovare l'intersezione di due liste di colonne in Excel?