Ugrás a tartalomra

Hogyan szűrhetők adatok az Excel legördülő listából?

Szerző: Xiaoyang Utolsó módosítás: 2020-04-21

Az Excel programban a legtöbben szűrhetik az adatokat a Szűrés funkció használatával. De próbált-e már adatokat szűrni a legördülő listából? Például, amikor kiválasztok egy elemet a legördülő listából, azt akarom, hogy a megfelelő sorok kiszűrődjenek a következő képernyőkép szerint. Ebben a cikkben arról fogok beszélni, hogy miként lehet szűrni az adatokat egy vagy két munkalapon található legördülő lista használatával.

Szűrje az adatokat a legördülő lista kiválasztásából egy munkalapon segítő képletekkel

Szűrje az adatokat a legördülő listából két VBA kóddal ellátott munkalapon


Szűrje az adatokat a legördülő lista kiválasztásából egy munkalapon segítő képletekkel

Az adatok szűréséhez a legördülő listából hozhat létre néhány segítő képlet oszlopot, kérjük, tegye a következő lépéseket egyesével:

1. Először illessze be a legördülő listát. Kattintson egy cellára, ahová be akarja illeszteni a legördülő listát, majd kattintson a gombra dátum > adatok ellenőrzése > adatok ellenőrzése, lásd a képernyőképet:

2. A kiugrott adatok ellenőrzése párbeszédpanel alatt beállítások lapon válassza ki a lehetőséget Lista tól Hagyjuk legördülő menüből, majd kattintson a gombra gombra kattintva kiválaszthatja azt az adatlistát, amely alapján létre kívánja hozni a legördülő listát, lásd a képernyőképet:

3. Kattintson a gombra OK gombra, a legördülő lista egyszerre kerül beillesztésre, és válasszon ki egy elemet a legördülő listából, majd írja be ezt a képletet: = SOROK ($ A $ 2: A2) (A2 az oszlop első cellája, amely a legördülő lista értékét tartalmazza) a D2 cellába, majd húzza lefelé a kitöltő fogantyút a cellákig ennek a képletnek az alkalmazásához, lásd a képernyőképet:

4. Adja meg ezt a képletet: = IF (A2 = $ H $ 2, D2, "") az E2 cellába, majd húzza lefelé a kitöltő fogantyút, hogy kitöltse ezt a képletet, lásd a képernyőképet:

Megjegyzések: A fenti képletben :A2 az oszlop első cellája, amely tartalmazza a legördülő lista értékétH2 az a cella, ahova a legördülő lista került, D2 az első segítő oszlopképlet.

5. Ezután írja be ezt a képletet: = IFERROR (KIS ($ E $ 2: $ E $ 17, D2), "") az F2 cellába, majd húzza le a kitöltő fogantyút a cellákra a képlet kitöltéséhez, lásd a képernyőképet:

Megjegyzések: A fenti képletben: E2: E17 a második segítő képletcella, D2 az első segédképlet oszlop első cellája.

6. A segítő képlet oszlopainak beillesztése után a szűrt eredményt egy másik helyre kell kiadnia, kérjük, alkalmazza ezt a képletet: =IFERROR(INDEX($A$2:$C$17,$F2,COLUMNS($J$2:J2)),"") a J2 cellába, majd húzza a kitöltő fogantyút J2-ről L2-re, és a legördülő lista alapján az adatok első rekordját kivonták, lásd a képernyőképet:

Megjegyzések: A fenti képletben: A2: C17 a szűrni kívánt eredeti adat, F2 a harmadik segítő képlet oszlop, J2 az a cella, ahova a szűrési eredményt ki szeretné adni.

7. Ezután húzza lefelé a kitöltő fogantyút a cellákig az összes megfelelő szűrt rekord megjelenítéséhez, lásd a képernyőképet:

8. Mostantól kezdve, ha egy elemet választ ki a legördülő listából, a kiválasztás alapján minden sor egyszerre leszűrve, lásd a képernyőképet:


Szűrje az adatokat a legördülő listából két VBA kóddal ellátott munkalapon

Ha a Sheet1 legördülő listacellája és a Sheet2 szűrt adatai, amikor egy elemet választ a legördülő listából, egy másik lap kiszűrésre kerül. Hogyan fejezheti be ezt a munkát az Excelben?

A következő VBA-kód jót tehet Önnek, kérjük, tegye a következőket:

1. Kattintson a jobb gombbal a lapfülre, amely a legördülő lista cellát tartalmazza, majd válassza a lehetőséget Kód megtekintése a helyi menüből, a megnyílt Microsoft Visual Basic alkalmazásokhoz ablakba másolja és illessze be a következő kódot az üres modulba:

VBA kód: Adatok szűrése a legördülő listából két lapon:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    On Error Resume Next
    If Not Intersect(Range("A2"), Target) Is Nothing Then
        Application.EnableEvents = False
        If Range("A2").Value = "" Then
            Worksheets("Sheet2").ShowAllData
        Else
            Worksheets("Sheet2").Range("A2").AutoFilter 1, Range("A2").Value
        End If
        Application.EnableEvents = True
    End If
End Sub

Megjegyzések: A fenti kódban: A2 a legördülő listát tartalmazó cella, és Sheet2 a munkalap tartalmazza a szűrni kívánt adatokat. A szám 1 a forgatókönyvben: Automatikus szűrő 1 az az oszlopszám, amely alapján szűrni akar. Igény szerint megváltoztathatja őket.

2. Mostantól, amikor kiválaszt egy elemet a Sheet1 legördülő listájából, és a megfelelő adatokat kiszűrjük a Sheet2-ben, lásd a képernyőképet:

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

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
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...

Leírás


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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
For me, the Formula =ROWS($A$2:A2) didn't workend! It always gave me "2" back. I had to put =ROWS($A2:A2), so without the second "$", in order to reproduce your result.
This comment was minimized by the moderator on the site
How do I add multiple drown down menus? For example,
If i wanted a drop down menu for Product and name?.
This comment was minimized by the moderator on the site
Hey Kev, wondering if you found an answer to your question here? I have been looking for a bit to no avail.
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations