Hogyan lehet törölni a kritériumoknak nem megfelelő sorokat egy másik lapról?

Lehet, hogy nem nehéz olyan sorokat törölnie, amelyek nem felelnek meg az ugyanazon a lapon szereplő feltételeknek, de tud-e valamilyen módszert arra, hogy törölje azokat a sorokat, amelyek nem felelnek meg a feltételeknek egy másik munkalapon, az alábbiak szerint. Most két trükköm van, amelyek segítségével gyorsan meg tudod oldani.

Törölje a feltételeknek nem megfelelő sorokat egy másik VBA-lapon

Törölje a kritériumoknak nem megfelelő sorokat egy másik lapon a Kutools for Excel segítségével

Kritériumok (2. lapon)	Előtt (1. lap)		Után (1. lap)

---

Törölje a feltételeknek nem megfelelő sorokat egy másik VBA-lapon

Van egy VBA-kód, amely segíthet egy másik lapon a feltételeknek nem megfelelő sorok törlésében.

1. nyomja meg Alt + F11 megjeleníteni a Microsoft Visual Basic for Applications ablak.

2. Az ablakban kattintson a gombra betétlap > Modulok új modulablak megjelenítéséhez, majd másolja a következő VBA kódot a modulablakba.

VBA: A feltételeknek nem megfelelő sorok törlése az Excel másik lapján.

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. kettyenés futásEgy KutoolsforExcel Megjelenik a párbeszédpanel, ahol kiválaszthatja azt a tartományt, amelyből törölni kívánja azokat a sorokat, amelyek nem felelnek meg a feltételeknek. Lásd a képernyőképet:

4. kettyenés OK, és megjelenik egy másik párbeszédpanel a kritériumok kiválasztásához egy másik munkalapon, lásd a képernyőképet:

5. Most minden olyan sor eltávolításra kerül, amely nem felel meg egy másik lap kritériumainak.

---

Törölje a kritériumoknak nem megfelelő sorokat egy másik lapon a Kutools for Excel segítségével

Ha a VBA kód kissé nehézkes az Ön számára, kipróbálhatja a Kutools for Excel Tartományok összehasonlítása funkcióját.

Kutools az Excel számára több mint 300 praktikus Excel eszközt tartalmaz. 30 nap alatt szabadon kipróbálható korlátozás nélkül. Szerezd meg most

1. Jelölje ki azt a lapot, amelyről törölni kívánja azokat a sorokat, amelyek nem felelnek meg a feltételeknek. És kattints Kutools > Hasonlítsa össze a tartományokat. Lásd a képernyőképet:

2. Ban,-ben Hasonlítsa össze a tartományokat kattintson a gombra a B tartomány, majd kiválaszthatja a szükséges kritériumtartományt. Lásd a képernyőképet:

 

3. Ezután kattintson OK, majd vissza a Hasonlítsa össze a tartományokat párbeszédpanelen ellenőrizze Más érték és a Válassza ki a teljes sorokat. Lásd a képernyőképet:

4. kettyenés Ok, és lépjen ki a Hasonlítsa össze a tartományokat párbeszéd. Ekkor megjelenik a kritériumtól eltérő értéksor.

5. Kattintson a jobb gombbal a kattintáshoz töröl a helyi menüből törölheti azokat a sorokat, amelyek nem felelnek meg a kritériumoknak egy másik lapon.

Kattintson ide további információkért a Kutools for Excel tartományok összehasonlításához.

---

Relatív cikkek:

• Bizonyos szöveget nem tartalmazó sorok törlése az Excelben