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.
![]() |
![]() |
![]() |
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 ezzel Kutools for Excel
Töltse ki a sorszámokat, hagyja ki a rejtett sorokat képlettel
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:
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:
Töltse ki a sorszámokat, hagyja ki a rejtett sorokat VBA kóddal
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:
4. Kattintson a gombra OK gombra, a sorozatszámokat csak a látható cellákba töltötték be.
Töltse ki a sorszámokat, és hagyja ki a rejtett sorokat ezzel Kutools for Excel
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 for Excel'S Helyezze be a sorozatszámot segédprogram segítségével gyorsan és egyszerűen elkészítheti.
Kutools for Excel : 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 for Excel, 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:
![]() |
![]() |
![]() |
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:
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:
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:
Letöltés és ingyenes próbaidőszak Kutools for Excel Most!
Demo: Sorozatszámok kitöltése, rejtett sorok kihagyása a következővel: Kutools for Excel
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet ezzel Kutools for Excel, és tapasztalja meg a még soha nem látott hatékonyságot. Kutools for Excel Több mint 300 speciális funkciót kínál a termelékenység fokozása és az időmegtakarítás érdekében. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Office Tab Lapos 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!












