Come creare una macro per cercare e sostituire testo in Excel?
Normalmente, si utilizza la funzione integrata Trova e sostituisci per cercare e sostituire valori in Excel. In realtà, è possibile Trova e sostituisci direttamente il testo in Excel tramite codice macro. In questo articolo imparerai come creare un codice macro per ottenere Trova e sostituisci testo in Excel.
Crea un codice macro per ottenere Trova e sostituisci testo in Excel
Crea un codice macro per ottenere Trova e sostituisci testo in Excel
Procedi nel modo seguente per creare una macro che ti permetta di utilizzare la funzione Trova e sostituisci in Excel.
1. Premi i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Nella finestra di Microsoft Visual Basic for Applications, fai clic su Inserisci > Modulo. Quindi copia il seguente codice VBA nella finestra del codice.
Codice VBA: crea un codice macro per ottenere 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. Nella prima finestra di dialogo Kutools per Excel, inserisci il testo o il valore da cercare, quindi fai clic sul pulsante OK. Vedi screenshot:
5. Nella seconda finestra di dialogo Kutools per Excel, inserisci il testo o il valore con cui sostituire, quindi fai clic sul pulsante OK.
Tutti i testi specificati vengono sostituiti all’istante con il testo desiderato.
Nota: questo codice viene applicato al foglio di lavoro attivo.
Articoli correlati:
- Come si fa a trovare e sostituire tutte le celle vuote con un numero o un testo specifico in Excel?
- Come sostituire le virgole con interruzioni di riga (Alt + Invio) nelle celle di Excel?
- Come trovare e sostituire i nomi delle schede dei fogli in Excel?
- Come trovare un valore all'interno di una cella che contiene un elenco separato da virgole in Excel?
- Come trovare l'intersezione di due colonne in Excel?
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 oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi