Ugrás a tartalomra

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

Szerző: Xiaoyang Utolsó módosítás: 2020-05-28

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, és hagyja ki a rejtett sorokat a Kutools for Excel segítségével


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ója a Kutools for Excel programhoz most!


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 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 (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
What's the magic with the 103?
This comment was minimized by the moderator on the site
It worked!! Thank you so muh!
This comment was minimized by the moderator on the site
none of these BS worked...The first one using formula, had skipped numbers and repeating other numbers... is there an easier way? FFS!
This comment was minimized by the moderator on the site
I have different worksheets in a workbook and I want to use VBA code for all worksheet at once .
Can anybody help me out.


For Example:
In every sheet in A1 I have S.No. and I want it to be a Sequence number 1 2 3 4 .....
This comment was minimized by the moderator on the site
VERY THANKS
This comment was minimized by the moderator on the site
I have been manually adding serial numbers to sheets containing hundreds, if not thousands, of rows since the past few years. The above formula has literally save a whole lot of hours for me, for the rest of my life. Thank you, Op.
This comment was minimized by the moderator on the site
This is not working. Instead of filling series, it's just copying first cell.
This comment was minimized by the moderator on the site
It doesn't work for me either! I get 1 in the original cell and then 1 in every cell I copy the formula to.
This comment was minimized by the moderator on the site
All of these steps above are way too complicated when I just want to double click the Fill Handle and Fill Down over hidden rows. Could Kutools give us a way to AutoFill using the Fill handle over filtered/hidden rows just using double click?
This comment was minimized by the moderator on the site
Hello, Matt,
Thank you for your comment, Kutools does not support this feature so far, but, we will consider your suggestion.
Thank you!
This comment was minimized by the moderator on the site
How can we use this solution with a custom starting number: Fill Down Sequence Numbers Skip Hidden Rows With VBA Code
This comment was minimized by the moderator on the site
Thank you! This works!!! Really appreciate it! Take Care and God Bless, PB
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations