Come creare un codice macro per ottenere la ricerca e la sostituzione del testo in Excel?
Normalmente, utilizziamo la funzione Trova e sostituisci incorporata per cercare e sostituire i valori in Excel. In realtà, puoi trovare e sostituire il testo in Excel direttamente con il codice macro. In questo articolo imparerai come creare un codice macro per ottenere la ricerca e la sostituzione del testo in Excel.
Crea un codice macro per trovare e sostituire il testo in Excel
Crea un codice macro per trovare e sostituire il testo in Excel
Si prega di fare quanto segue per creare un codice macro per ottenere la ricerca e la sostituzione del testo in Excel.
1. premi il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia sotto il codice VBA nella finestra del codice.
Codice VBA: crea un codice macro per trovare e sostituire il 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 F5 chiave per eseguire il codice.
4. Nella prima Kutools for Excel finestra di dialogo, immettere il testo o il valore da cercare e quindi fare clic su OK pulsante. Vedi screenshot:
5. Nella seconda Kutools for Excel finestra di dialogo, immettere il testo o il valore da sostituire e fare clic su OK pulsante.
Quindi tutti i testi specificati vengono sostituiti immediatamente con il testo desiderato.
Note:: Questo codice viene applicato al foglio di lavoro attivo.
Articoli correlati:
- Come trovare e sostituire tutte le celle vuote con un determinato numero o testo in Excel?
- Come sostituire le virgole con le nuove righe (Alt + Invio) nelle celle in Excel?
- Come trovare e sostituire i nomi delle schede dei fogli in Excel?
- Come trovare il valore in una cella con un elenco separato da virgole in Excel?
- Come trovare l'intersezione di due elenchi di colonne in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!