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 Sub3. 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?
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in