Note: The other languages of the website are Google-translated. Back to English

Hogyan lehet megtalálni és megszerezni az első látható cella értékét az Excel szűrése után?

Bizonyos esetekben előfordulhat, hogy be kell szereznie egy szűrt lista első látható cellájának értékét. Hogyan lehet elérni? Ez a cikk megmutatja a megoldásának módszereit.

A tömbképlettel végzett szűrés után keresse meg és kapja meg az első látható cella értékét
Keresse meg és szerezze meg az első látható cella értékét a VBA-val történő szűrés után


A tömbképlettel végzett szűrés után keresse meg és kapja meg az első látható cella értékét

A következő tömbképletet alkalmazhatja a szűrt lista első látható cellájának értékének megszerzéséhez. Kérjük, tegye a következőket.

1. Jelöljön ki egy üres cellát az első látható érték elhelyezéséhez, írja be az alábbi képletet, majd nyomja meg a Ctrl + műszak + belép gombokat egyszerre.

=INDEX(C2:C19,MIN(IF(SUBTOTAL(3,OFFSET(C2,ROW(C2:C19)-ROW(C2),0)),ROW(C2:C19)-ROW(C2)+1)))

Megjegyzések: A képletben C2: C19 az a szűrt lista, amellyel vissza szeretné adni az első látható cellaértéket, C2 a lista első cella. Szükség szerint megváltoztathatja őket.

Ezután láthatja a kiválasztott cellában feltöltött szűrt lista első látható cellájának értékét, a fenti képernyőképen látható módon.


Keresse meg és szerezze meg az első látható cella értékét a VBA-val történő szűrés után

Amellett, hogy a fenti tömbképletet használja a szűrt lista első látható cellájának értékének megszerzéséhez, futtathatja az alábbi VBA parancsfájlt a szűrt lista első látható cellájának gyors visszaadásához. Kérjük, tegye a következőket.

1. Válasszon egy üres cellát, például az E8-at a szűrt lista első látható cellaértékének elhelyezéséhez.

2. nyomja meg más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

3. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be az alábbi VBA kódot a Modul ablakba.

VBA kód: keresse meg és szerezze meg az első látható cella értékét az Excel szűrése után

Sub FirstVisibleCell()
   With Worksheets("Sheet1").AutoFilter.Range
       ActiveCell.Value2 = Range("C" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Value2
    End With
End Sub

Megjegyzések: A kódban a Sheet1 az a lap neve, amely a szűrt listát tartalmazza. A „C” az az oszlop neve, amelyből az első látható értéket meg szeretné kapni. Szükség szerint megváltoztathatja őket.

3. megnyomni a F5 kulcs a kód futtatásához, akkor a C oszlopban található szűrt lista első látható cellája azonnal be lesz töltve az E8 cellába.


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (17)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan lehet megtalálni és lekérni tíz (10) első látható cella értékét a részösszeg szűrése után az Excelben?
A weboldal moderátora ezt a megjegyzést minimalizálta
Olá,


Como faço para saber o número da célula toda vez que realizo o filtro automatico no vba via loop?
Por exemplo, ao filtrar o valor 1, retornou as linhas 2, 3 e 4. No próximo loop filtro o valor 2 e retorna as linhas 19, 20, 22.
Como faço para que eu realizar esse filtro eu pegue exatamente o valor da linha atual da linha do filtro e não o valor da primeira linha da planilha?
Köszönöm.
A weboldal moderátora ezt a megjegyzést minimalizálta
Kiváló modul VBA-ban, tökéletesen működött Értékelem ezt!Köszönöm ezt a bejegyzést!!!!
A weboldal moderátora ezt a megjegyzést minimalizálta
Valaki el tudná magyarázni, hogy ez a képlet valójában hogyan működik?

=INDEX(C2:C19,MIN(IF(SUBTOTAL(3,OFFSET(C2,ROW(C2:C19)-ROW(C2),0)),ROW(C2:C19)-ROW(C2)+1)))
A weboldal moderátora ezt a megjegyzést minimalizálta
Folyamatosan '91'-es futásidejű hibaüzenetet kapok Objektumváltozó vagy A blokkváltozó nincs beállítva. A munkalapom a Sheet1, melynek címe AllBrands. Ez az én képletem:

Sub FirstVisibleCell()
With Worksheets("ALLBRANDS").AutoFilter.Range
ActiveCell.Value2 = Tartomány("H" & .Offset(1, 0).SpecialCells(xlCellTypeVissible)(1).Sor).Érték2
Vége

End Sub

Bármilyen segítséget értékelni fogunk!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Bub,
A kód jól működik az én esetemben. Melyik Excel verziót használod?
A weboldal moderátora ezt a megjegyzést minimalizálta
Sajnos - sem a képlet - nem ad #VALUE hibát, sem a VBA nem működik, és '1004'-es futásidejű hibát ad.
Kár, hogy Office 2019-em van, és arra számítottam, hogy ezeknek a funkcióknak az egyike működni fog bizonyos cellák szűrésekor... :-(
A weboldal moderátora ezt a megjegyzést minimalizálta
‌csodálatos🌺 Millió köszönet🙏
A weboldal moderátora ezt a megjegyzést minimalizálta
Millió köszönet 🙏🌺
A weboldal moderátora ezt a megjegyzést minimalizálta
Működik. Köszönöm szépen...
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez a képlet működik, de ügyeljen arra, hogy ha üres cellái vannak, a képlet hibásan működhet, és az első értéket a teljes táblázatban választja ki, nem csak a szűrt eredményekben. A megoldás az volt, hogy az üres cellákat NULL-ra vagy szóközre cseréltem.
A weboldal moderátora ezt a megjegyzést minimalizálta
Először voltak üres helyeim... aztán minden cella kitöltve volt, de továbbra is az #VALUE válasz. Remélhetőleg ez a képlet szövegen is működik...! Amúgy köszi a tanácsot ;-)
A weboldal moderátora ezt a megjegyzést minimalizálta
Szóval számomra a fenti válasz egyszerűen nem működik olyan jól. Van egy munkafüzetem több mint 23 XNUMX sorral, és az évek során azon dolgoztam, hogy optimalizáljam. A megoldásom ma reggel az ihlet egy újabb szikrájában érkezett hozzám.
Feltételezve, hogy egy TÁBLÁZAT-ot használ a kívánt adatok beszerzéséhez, tegye ezt: Egy sor (én "Rownmbr"-nek neveztem el) a következőnek van szentelve: =CELL([@[YOURFIRSTROW]])
A táblázaton kívül valahol elkészít egy képletet:=INDIRECT(CONCATENATE("A";SUBTOTAL(105;Table1[Rownmbr])))
Egyszerűen cserélje ki az "A"-t arra, ahonnan az adatokat szeretné megszerezni. Számomra ez remekül működik, és nem olyan nehéz képlet, amely tovább rontja a dokumentumot.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez a megoldás nekem tökéletesen bevált, mivel asztalt használtam. Az utasításokat nehéz volt követni, így remélhetőleg ez a magyarázat egy kicsit világosabb lesz.
Tegyük fel, hogy van egy „Table_Name” nevű Excel táblája. Először hozzon létre egy új oszlopot a táblázatban, és nevezze el "Sorszám"-nak. 
Az új oszlopba írja be a következő képletet: "=ROW([@RowNumber])" Ez ezután feltölti az új oszlopot
Abba a cellába, ahol meg szeretné jeleníteni az első látható értéket, írja be a következő képletet: "=INDIRECT("A"&SUBTOTAL(105,Table_Name[RowNumber]))" Az "A" annak az oszlopnak a betűje, amely a kívánt értéket tartalmazza. visszatérni.
A SUBTOTAL(105,...) függvény egy adott tartomány összes látható sorának minimális értékét adja vissza, ami a fenti esetben az első látható sor sorszámát adja vissza.
Az INDIRECT függvény egy adott cellacímhez tartozó cella értékét adja vissza. Ezért szükséges, hogy a képlet első része tartalmazza a megjeleníteni kívánt oszlop oszlopbetűjét. A képlet második része a sorszámot adja vissza.


A weboldal moderátora ezt a megjegyzést minimalizálta
Segítenél megírni ezt a képletet a google lapba tömbformulával ()

{=INDEX(C2:C19,MIN(IF(SUBTOTAL(3,OFFSET(C2,ROW(C2:C19)-ROW(C2),0)),ROW(C2:C19)-ROW(C2)+1)))}
A weboldal moderátora ezt a megjegyzést minimalizálta
A következő VBA-kódban magyarázza el, mit csinál SpecialCells(xlCellTypeVisible)(1) átlagos? Mi a (1) utánra használják SpecialCells(xlCellTypeVisible)?
ActiveCell.Value2 = Tartomány("C" & .Offset(1, 0).SpecialCells(xlCellTypeVissible)(1).Sor).Érték2
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm!
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi