Come trovare e sostituire più valori contemporaneamente in Excel?
Come tutti sappiamo, possiamo utilizzare la funzione Trova e sostituisci per trovare più celle della stessa e sostituirle con un valore di cui hai bisogno. Ma a volte, è necessario applicare la sostituzione molti-a-molti contemporaneamente. Ad esempio, ho una serie di dati e ora voglio sostituire tutte le mele con le mele rosse, le arance con le arance verdi, le banane con le banane gialle e così via come mostrato nelle seguenti schermate, hai buone idee per risolvere questo compito in Eccellere?
Trova e sostituisci più valori contemporaneamente con il codice VBA
Trova e sostituisci più valori contemporaneamente con il codice VBA
Se sei stanco di trovare e sostituire i valori più e più volte, il seguente codice VBA può aiutarti a sostituire più valori con i testi necessari contemporaneamente.
1. Si prega di creare le condizioni che si desidera utilizzare che contengano i valori originali e i nuovi valori. Vedi screenshot:
2. Quindi tieni premuto il pulsante ALT + F11 chiavi per aprire il Finestra di Microsoft Visual Basic, Applications Edition.
3. Clic inserire > Modulie incolla il codice seguente nella finestra del modulo.
Codice VBA: trova e sostituisci più valori contemporaneamente
Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub
4. Quindi premere F5 chiave per eseguire questo codice, nella finestra del messaggio spuntata, specificare l'intervallo di dati in cui si desidera sostituire i valori con nuovi valori.
5. Clic OKe viene visualizzata un'altra finestra di messaggio per ricordarti di selezionare i criteri creati nel passaggio 1. Vedi screenshot:
6. Quindi fare clic OK, tutti i valori specifici sono stati sostituiti con i nuovi valori di cui hai bisogno immediatamente.
Articoli correlati:
Come trovare e sostituire un testo specifico nelle caselle di testo?
Come trovare e sostituire il testo nei titoli dei grafici in Excel?
Come trovare e sostituire il testo all'interno dei commenti in Excel?
Come modificare più percorsi di collegamento ipertestuale contemporaneamente 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!