Come eliminare le righe che non corrispondono ai criteri su un altro foglio?

Potrebbe non essere difficile per te eliminare righe che non corrispondono ai criteri sullo stesso foglio, ma conosci dei modi per eliminare le righe che non corrispondono ai criteri su un altro foglio come mostrato di seguito. Ora ho due trucchi che possono aiutarti a risolverlo rapidamente.

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

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

Criteri (nel foglio 2)	Prima (foglio 1)		Dopo (Foglio1)

---

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

C'è un codice VBA che può aiutarti a eliminare le righe che non corrispondono ai criteri su un altro foglio.

1. Stampa Alt + F11 per visualizzare il Microsoft Visual Basic, Applications Edition finestra.

2. Nella finestra, fare clic su inserire > Moduli per mostrare una nuova finestra del modulo, quindi copia il seguente codice VBA nella finestra del modulo.

VBA: elimina le righe che non corrispondono ai criteri su 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. Clic Correre, un Kutools per Excel si apre la finestra di dialogo per selezionare un intervallo in cui si desidera eliminare le righe che non corrispondono ai criteri. Vedi screenshot:

4. Clic OKe viene visualizzata un'altra finestra di dialogo per la selezione dei criteri in un altro foglio, vedi screenshot:

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

---

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

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

Kutools for Excel include più di 300 utili strumenti Excel. Prova gratuita senza limitazioni per 30 giorni. Get it Now

1. Selezionare il foglio di cui si desidera eliminare le righe che non corrispondono ai criteri. E clicca Kutools > Confronta intervalli. Vedi screenshot:

2. Nel Confronta intervalli finestra di dialogo, fare clic sul pulsante nel file Gamma B, quindi puoi selezionare l'intervallo di criteri di cui hai bisogno. Vedi screenshot:

 

3. Quindi fare clic OK, quindi torna al file Confronta intervalli dialogo, controlla Valore diverso ed Seleziona intere righe. Vedi screenshot:

4. Clic Oke uscire da Confronta intervalli dialogo. Quindi vedrai che le righe dei valori che sono diverse dai criteri sono selezionate.

5. Fare clic con il tasto destro per fare clic Elimina dal menu contestuale per eliminare le righe che non corrispondono ai criteri su un altro foglio.

Fare clic qui per ulteriori informazioni su Kutools per gli intervalli di confronto di Excel.

---

Articoli relativi:

• Elimina le righe che non contengono un determinato testo in Excel