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, hagyja ki a rejtett sorokat a Kutools for Excel alkalmazással
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, hagyja ki a rejtett sorokat a Kutools for Excel alkalmazással
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:
![]() |
![]() |
![]() |
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:
Töltse le és ingyenes próbaverziót Kutools for Excel Now!
Bemutató: Töltse ki a sorszámokat, hagyja ki a rejtett sorokat a Kutools for Excel alkalmazással
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.

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!












