Come si eliminano le righe che non corrispondono ai criteri presenti in un altro foglio?

Potrebbe non essere difficile per Lei Elimina righe che non corrispondono ai criteri nello stesso foglio, ma conosce un metodo per eliminare le righe che non soddisfano i criteri in un altro foglio, come mostrato di seguito? Ora Le propongo due soluzioni rapide per risolvere 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(Nel foglio 2)	Prima(Foglio 1)		Dopo(Foglio1)

---

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

È disponibile un codice VBA che può aiutarLa a eliminare le righe che non corrispondono ai criteri presenti in un altro foglio.

1. Premere Alt + F11 per visualizzare la finestra di Microsoft Visual Basic, Applications Edition.

2. Nella finestra, fai clic su Inserisci > Modulo per aprire una nuova finestra del modulo, quindi copia il seguente codice VBA al suo interno.

VBA: Elimina le righe che non soddisfano i criteri specificati in un altro foglio di 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. Fare clic su Esegui, una KutoolsforExcelViene visualizzata una finestra di dialogo in cui è possibile selezionare l’intervallo da cui eliminare le righe non corrispondenti ai criteri. Vedere lo screenshot:

4. Fare clic su OK e verrà visualizzata un’altra finestra di dialogo per selezionare i criteri in un altro foglio; vedi lo screenshot:

5. Ora tutte le righe che non soddisfano i criteri sono state eliminate da un altro foglio.

---

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

Se il codice VBA Le sembra un po’ complesso, provi la funzione Confronta intervalli di Kutools per Excel.

Kutools per Excel include oltre 300 strumenti utili per Excel. Prova gratuita illimitata per 30 giorni! Scaricalo ora

1. Seleziona il foglio da cui desideri eliminare le righe che non corrispondono ai criteri e fai clic su Kutools > Intervallo > Confronta Celle. Vedere lo screenshot:

2. Nella finestra di dialogo Confronta Celle, fai clic sul pulsante accanto a Intervallo B e seleziona l’intervallo contenente i criteri desiderati. Guarda lo screenshot:

 

3. Fare quindi clic su OK, tornare alla finestra di dialogo Confronta intervalli, selezionare Valore diverso e Seleziona Intera Riga. Vedere lo screenshot:

4. Fare clic su OK e chiudere la finestra di dialogo Confronta intervalli. A questo punto, verranno selezionate le righe con valori diversi dai criteri specificati.

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

Fai clic qui per scoprire di più sulla funzione Confronta intervalli di Kutools per Excel.

---

Articoli correlati:

• Elimina righe che non contengono un determinato testo in Excel

---