Come trovare ed eliminare più corrispondenze contemporaneamente in Excel?
Quando si lavora con grandi quantità di dati in Excel, è fondamentale poter trovare rapidamente le informazioni necessarie in qualsiasi momento. È proprio in questi casi che entra in gioco la funzionalità **Trova e sostituisci**, che permette di individuare ed evidenziare valori o formati specifici nel foglio di lavoro corrente o nell’intera cartella di lavoro, per poi intervenire sui risultati — ad esempio eliminandoli o sostituendoli. Tuttavia, lo strumento **Trova e sostituisci** di Excel consente di cercare un solo valore alla volta. In questa guida scoprirai un metodo rapido per trovare più valori diversi ed eliminarli contemporaneamente in Excel.
Trovare ed eliminare più corrispondenze contemporaneamente con VBA
Sono stati creati due codici VBA per aiutare a trovare più Valore diverso nell’Seleziona intervallo o in più fogli di lavoro ed eliminarli immediatamente. Seguire i passaggi seguenti ed eseguire il codice in base alle proprie esigenze.
1. In Excel, premi i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic, Applications.
2. Fare clic su Inserisci > Modulo. Quindi, copiare uno dei seguenti codici VBA nella finestra del Modulo.
Codice VBA 1: Trova ed elimina più corrispondenze nell’Seleziona intervallo contemporaneamente
Sub FindAndDeleteDifferentValues_Range()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
On Error Resume Next
Set xRg = Application.InputBox("Please select the search scope:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub
xBol = False
For Each xARg In xRg.Areas
Set xFindRg = Nothing
Set xFindRgs = Nothing
Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
For Each xFindRg In xURg
For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
If xFindRg.Text = xArrFinStr(xJ) Then
xBol = True
If xFindRgs Is Nothing Then
Set xFindRgs = xFindRg
Else
Set xFindRgs = Application.Union(xFindRgs, xFindRg)
End If
End If
Next
Next
If Not xFindRgs Is Nothing Then
xFindRgs.ClearContents
End If
Next
If xBol Then
MsgBox "Successfully deleted."
Else
MsgBox "No results found."
End If
End SubNota: Nel frammento xArrFinStr = Array(«sales», «[[PH_35]]», «@») alla riga 13, sostituire «sales», "9", «@» con i valori effettivi che si desidera trovare ed eliminare; ricordarsi di racchiudere ciascun valore tra virgolette doppie e separarli con virgole.
Codice VBA 2: Trova ed elimina più corrispondenze in più fogli contemporaneamente
Sub FindAndDeleteDifferentValues_WorkSheets()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and delete the values. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
Set xWSh = xWb.Worksheets(xArr(xI))
Set xFindRg = Nothing
xWSh.Activate
Set xFindRgs = Nothing
Set xURg = xWSh.UsedRange
Set xFindRgs = Nothing
For Each xFindRg In xURg
For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
If xFindRg.Text = xArrFinStr(xJ) Then
xBol = True
If xFindRgs Is Nothing Then
Set xFindRgs = xFindRg
Else
Set xFindRgs = Application.Union(xFindRgs, xFindRg)
End If
End If
Next
Next
If Not xFindRgs Is Nothing Then
xFindRgs.ClearContents
End If
Next
If xBol Then
MsgBox "Successfully deleted."
Else
MsgBox "No results found."
End If
End Sub- Nel frammento xArr = Array("Sheet1", "Sheet2") alla riga 15, sostituisci "Sheet1", "Sheet2" con i nomi effettivi dei fogli in cui desideri trovare ed eliminare i valori. Ricorda di racchiudere ogni nome di foglio tra virgolette doppie e di separarli con una virgola.
- Nel frammento xArrFinStr = Array(«sales», «[[PH_38]]», «@») alla riga 16, sostituisci «sales», "9", «@» con i valori effettivi che desideri trovare ed eliminare; ricorda di racchiudere ciascun valore tra virgolette doppie e separarli con virgole.
3. Premere F5 per eseguire il codice VBA.Nota: Se si utilizza il codice VBA 1, verrà visualizzata una finestra di dialogo che chiede di selezionare l’intervallo in cui trovare ed eliminare i valori. È anche possibile fare clic su una scheda del foglio per selezionare l’intero foglio.
4. Viene visualizzata la finestra di dialogo mostrata di seguito, che indica che il codice ha eliminato le corrispondenze specificate. Fare clic su OK per chiudere la finestra.
5. I valori specificati sono stati eliminati tutti insieme.
Trovare ed eliminare più corrispondenze contemporaneamente con la funzionalità Seleziona celle specifiche
Kutools per Excel offre la funzionalità Seleziona celle specifiche per trovare valori che soddisfano una o due condizioni impostate contemporaneamente. Scopri subito come individuare ed eliminare rapidamente più valori in un colpo solo!
1. Nella scheda Kutools, nel gruppo Modifica, fai clic su Seleziona > Seleziona celle specifiche.
- Nella casella Seleziona celle all'interno dell'intervallo, fare clic sul pulsante di selezione intervallo
a destra per specificare l’intervallo da cui trovare ed eliminare i valori.Nota:Per cercare nell’intero foglio, fare clic sulla scheda del foglio. - Nella sezione Seleziona tipo, seleziona l’opzione Cella.
- Nella sezione Specifica tipo, impostare al massimo due condizioni:
- Fai clic sulla freccia a discesa sul lato sinistro per selezionare la relazione desiderata, ad esempio Contiene, Uguale a, Minore di, Inizia con, ecc.
- Inserisci il valore nella casella corrispondente in base alle tue esigenze.
- Specificare la relazione tra le due condizioni (se presenti): E o O.
a destra per specificare l’intervallo da cui 
3. Fare clic su Ok per selezionare le celle che soddisfano la/le condizione/i impostata/e. Viene visualizzata una finestra di dialogo che indica quante celle sono state trovate e selezionate.
4. Fare clic su OK. Ora premere il tasto CANC per eliminare contemporaneamente i valori selezionati.
Kutools per Excel– Potenzia Excel con oltre 300 strumenti essenziali, rendendo il tuo lavoro più veloce e semplice, e sfrutta le funzionalità basate sull’IA per un’elaborazione dati più intelligente e una maggiore produttività.Scaricalo ora
Demo: Trovare ed eliminare più corrispondenze contemporaneamente in Excel
Articoli correlati
Trovare, evidenziare, filtrare, contare ed eliminare i duplicati in Excel
In Excel, i dati duplicati si verificano ripetutamente quando si registrano manualmente informazioni, si copiano dati da altre fonti o per altri motivi. A volte, i duplicati sono necessari e utili. Tuttavia, talvolta i Valori duplicati causano errori o fraintendimenti. In questo articolo verranno introdotti metodi per identificare, evidenziare, filtrare, contare ed eliminare rapidamente i duplicati mediante formule, regole Utilizza la formattazione condizionale, componenti aggiuntivi di terze parti, ecc. in Excel.
Come confrontare due colonne ed eliminare le righe con valori corrispondenti in Excel?
Se hai due colonne o elenchi che contengono alcuni duplicati e vuoi confrontarli per individuare ed eliminare le corrispondenze, come puoi risolvere rapidamente la situazione? In questo articolo ti mostriamo diversi metodi efficaci per gestire questa operazione in Excel.
Come eliminare tutti i comandi tranne «Seleziona intervallo» in Excel?
In Excel è possibile eliminare rapidamente e direttamente i “Seleziona intervallo”, ma avete mai provato a rimuovere tutti gli altri contenuti delle celle, lasciando intatti proprio i “Seleziona intervallo”? In questo articolo vi sveleremo alcuni trucchi per eseguire questa operazione in modo rapido e semplice.
Come si fa a eliminare tutte le immagini presenti in un intervallo di celle?
Se nel foglio di lavoro sono presenti numerose immagini e si desidera eliminarne alcune all’interno di un intervallo limitato, come si può procedere rapidamente?
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