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.

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.

Tovább ... Ingyenes letöltés... Vásárlás... 

---

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!

Tovább ... Ingyenes letöltés... Vásárlás...