Come eliminare le righe che non corrispondono ai criteri in un altro foglio di lavoro?

Potrebbe non essere difficile per te eliminare le righe che non corrispondono ai criteri nello stesso foglio, ma conosci dei modi per eliminare le righe che non corrispondono ai criteri in un altro foglio come mostrato di seguito? Ora ho due trucchi che possono aiutarti a risolvere rapidamente il problema.

Elimina righe che non corrispondono ai criteri in un altro foglio con VBA

Elimina righe che non corrispondono ai criteri in un altro foglio con Kutools per Excel

Criteri(Foglio 2)	Prima(Foglio 1)		Dopo(Foglio1)

---

Elimina righe che non corrispondono ai criteri in un altro foglio con VBA

Esiste un codice VBA che può aiutarti a eliminare le righe che non corrispondono ai criteri in un altro foglio.

1. Premi Alt + F11 per visualizzare la finestra Microsoft Visual Basic for Applications.

2. Nella finestra, clicca Inserisci > Modulo per aprire una nuova finestra del modulo, quindi copia il seguente codice VBA nella finestra del modulo.

VBA: Elimina righe che non corrispondono ai criteri in un altro foglio in Excel.

Sub DeleteRow()
'Updateby20140618
Dim rng As Range
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant
Dim arr2 As Variant
Dim dic2 As Variant
Dim OutArr As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Set Rng1 = Rng1.Columns(1)
Set Rng2 = Rng2.Columns(1)
Set dic2 = CreateObject("Scripting.Dictionary")
arr1 = Rng1.Value
arr2 = Rng2.Value
For i = 1 To UBound(arr2, 1)
    xKey = arr2(i, 1)
    dic2(xKey) = ""
Next
Rng1.ClearContents
OutArr = Rng1.Value
xIndex = 1
For i = 1 To UBound(arr1, 1)
    xKey = arr1(i, 1)
    If dic2.Exists(xKey) Then
        OutArr(xIndex, 1) = xKey
        xIndex = xIndex + 1
    End If
Next
Rng1.Value = OutArr
End Sub

3. Clicca Esegui, una KutoolsforExcel finestra di dialogo si apre per permetterti di selezionare un intervallo in cui vuoi eliminare le righe che non corrispondono ai criteri. Vedi screenshot:

4. Clicca OK, e un'altra finestra di dialogo appare per selezionare i criteri in un altro foglio, vedi screenshot:

5. Ora tutte le righe che non corrispondono ai criteri in un altro foglio sono state rimosse.

---

Elimina righe che non corrispondono ai criteri in un altro foglio con Kutools per Excel

Se il codice VBA è un po' difficile per te, puoi provare la funzione Confronta Intervalli di Kutools per Excel.

Kutools per Excel include più di 300 strumenti utili per Excel. Provalo gratuitamente senza limitazioni per 30 giorni. Ottienilo ora

1. Seleziona il foglio in cui desideri eliminare le righe che non corrispondono ai criteri. E clicca su Kutools > Intervallo > Confronta Celle. Vedi screenshot:

2. Nella finestra di dialogo Confronta Celle, clicca sul pulsante nell' Intervallo B, e poi puoi selezionare l'intervallo dei criteri di cui hai bisogno. Vedi screenshot:

 

3. Poi clicca OK, quindi torna alla finestra di dialogo Confronta Intervalli, seleziona Valore Diverso e Seleziona intera riga. Vedi screenshot:

4. Clicca Ok, ed esci dalla finestra di dialogo Confronta Intervalli. Quindi vedrai che le righe con valori diversi dai criteri sono state selezionate.

5. Fai clic con il tasto destro e seleziona Elimina dal menu contestuale per eliminare le righe che non corrispondono ai criteri in un altro foglio.

Clicca qui per maggiori informazioni sulla funzione Confronta Intervalli di Kutools per Excel.

---

Articoli correlati:

• Elimina righe che non contengono un certo testo in Excel

---