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

Hogyan lehet kitölteni a sorszámokat, kihagyva a rejtett sorokat az Excelben?

Tegyük fel, hogy van egy szűrési adattartománya, amelyet be akar tölteni a sorszámokkal a szűrt üres cellába, az alábbi képernyőkép szerint. Ebben az esetben a kitöltő fogantyú meghúzása általában nem tölti ki megfelelően a cellákat, erről a cikkről néhány jó trükköt fogok beszélni a feladat Excelben történő megoldására.

doc kitöltés kihagyva rejtett 1 2 doc kitöltés kihagyva rejtett 2

Töltse ki a sorszámokat, hagyja ki a rejtett sorokat képlettel

Töltse ki a sorszámokat, hagyja ki a rejtett sorokat VBA kóddal

Töltse ki a sorszámokat, hagyja ki a rejtett sorokat a Kutools for Excel alkalmazással


Ha csak a látható cellákra szeretné kitölteni a sorszámokat, akkor egy egyszerű képlet segíthet, kérjük, tegye a következőket:

1. Írja be ezt a képletet: = SUBTOTAL (103, $ B $ 3: $ B3)(B3 a látható cella, amely megfelel annak a cellának, amelyhez meg akarja kezdeni a sorozatszám kitöltését) az első cellába, ahová be akarja tölteni a sorszámokat (A3), és nyomja meg belép gombot, akkor kap egy 1-es számot, lásd a képernyőképet:

doc kitöltés kihagyva rejtett 3

2. Ezután válassza ki az A3 cellát, és húzza lefelé a kitöltő fogantyút azokra a cellákra, amelyekkel kitölteni szeretné a sorszámokat, lásd a képernyőképet:

doc kitöltés kihagyva rejtett 4


A következő VBA kód szintén segíthet abban, hogy a sorszámokat csak látható cellákba töltse ki, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: Töltse ki a sorszámokat, hagyja ki a rejtett sorokat:

Sub FillValue()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xVal As Long
    Dim I As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = xRg.SpecialCells(xlVisible)
    Debug.Print xRg.Address
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        xVal = xVal + 1
        xCell = xVal
    Next
End Sub

3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt a kitölteni kívánt adattartomány kiválasztására, lásd a képernyőképet:

doc kitöltés kihagyva rejtett 5

4. Kattintson a gombra OK gombra, a sorozatszámokat csak a látható cellákba töltötték be.


Csak két módszer felett segíthet kitölteni a sorszámokat a látható cellákba, ha a szekvenciát úgy kívánja kitölteni AA-0001-BB, AA-0002-BB, AA-0003-BB…, a fenti módszerek nem fognak működni. De kérem, ne aggódjon, Kutools az Excel számára'S Helyezze be a sorozatszámot segédprogram segítségével gyorsan és egyszerűen elkészítheti.

Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Jelölje ki azokat a cellákat, amelyekkel meg szeretné tölteni a szekvencia karakterláncokat.

2. Kattints Kutools > betétlap > Helyezze be a sorozatszámot, A Helyezze be a sorozatszámot párbeszédpanelen kattintson a gombra Új gomb, lásd a képernyőképeket:

2 doc kitöltés kihagyva rejtett 7

3. A kibontott párbeszédpanelen adja meg a szükséges beállításokat a bal alsó szakaszban, ugyanakkor megtekintheti a sorrendet a jobb alsó panelen, lásd a képernyőképet:

doc kitöltés kihagyva rejtett 8

4. A beállítások elvégzése után kattintson a gombra hozzáad gomb az új elem mentéséhez a fenti listamezőbe, lásd a képernyőképet:

doc kitöltés kihagyva rejtett 9

6. Ezután válassza ki a létrehozott elemet, és kattintson Kitöltési tartomány gombra, a sorrend karakterláncai csak a látható cellákba kerültek, lásd a képernyőképet:

doc kitöltés kihagyva rejtett 10

Töltse le és ingyenes próbaverziót Kutools for Excel Now!


Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

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 (12)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm! Ez működik!!! Nagyra értékelem! Vigyázz magadra, és Isten áldjon, PB
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan használhatjuk ezt a megoldást egyéni kezdőszámmal: Sorozatszámok kitöltése Rejtett sorok kihagyása VBA-kóddal
A weboldal moderátora ezt a megjegyzést minimalizálta
A fenti lépések mindegyike túl bonyolult, ha csak duplán akarok kattintani a kitöltési fogantyúra és a rejtett sorok feletti kitöltésre. Adhat-e a Kutools módot az automatikus kitöltésre a kitöltés fogantyúval a szűrt/rejtett sorok felett, dupla kattintással?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Matt!
Köszönjük észrevételét, a Kutools eddig nem támogatja ezt a funkciót, de megfontoljuk javaslatát.
Köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez nem működik. A sorozat kitöltése helyett csak az első cellát másolja.
A weboldal moderátora ezt a megjegyzést minimalizálta
Nekem sem megy! 1-et kapok az eredeti cellában, majd 1-et minden cellában, ahová bemásolom a képletet.
A weboldal moderátora ezt a megjegyzést minimalizálta
Az elmúlt néhány év óta manuálisan adok sorozatszámokat a több száz, ha nem több ezer sort tartalmazó lapokhoz. A fenti képlet szó szerint rengeteg órát takarít meg nekem, életem hátralévő részében. Köszönöm, Op.
A weboldal moderátora ezt a megjegyzést minimalizálta
NAGYON KÖSZÖNHETŐEN
A weboldal moderátora ezt a megjegyzést minimalizálta
Különböző munkalapjaim vannak egy munkafüzetben, és egyszerre szeretnék VBA-kódot használni az összes munkalaphoz.
Tud valaki segíteni nekem.


Például:
Az A1 minden lapján szerepel az S. No. és azt akarom, hogy ez egy 1 2 3 4 sorszám legyen.....
A weboldal moderátora ezt a megjegyzést minimalizálta
ezek közül egyik BS sem működött...Az első képletet használó, kihagyott számokat és más számokat ismételgetett... van ennél egyszerűbb módszer? FFS!
A weboldal moderátora ezt a megjegyzést minimalizálta
Működött!! köszönöm szépen!
A weboldal moderátora ezt a megjegyzést minimalizálta
Mi a varázslat a 103-ban?
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