Ugrás a tartalomra

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

doc-delete-based-on-another-lap-1 doc-delete-based-on-another-lap-2 doki-jobb doc-delete-based-on-another-lap-3
 Kritériumok (2. lapon)     Előtt (1. lap)          Után (1. lap)



nyíl kék jobb buborék 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:

doc-delete-based-on-another-lap-4

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:

doc-delete-based-on-another-lap-5

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


nyíl kék jobb buborék 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:

doc-delete-based-on-another-lap-6

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:

doc-delete-based-on-another-lap-7
doc-nyíl
doc-delete-based-on-another-lap-8

 

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:

doc-delete-based-on-another-lap-9

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.

doc-delete-based-on-another-lap-10

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.

doc-delete-based-on-another-lap-11

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


Relatív cikkek:

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Doesn't work with sheets that have multiple columns because it doesn't actually delete the row, just the cell.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations