Hogyan lehet automatikusan számozni vagy újraszámozni az Excel szűrő után?

Mint mindannyian tudjuk, a sorszámok listáját tartalmazó adatok szűrése után a munkalapon a sorszámok ugyanazok lesznek, mint az eredeti számok, nem számozódnak át automatikusan. De néha a sorokat a szűrt munkalap sorrendjeként szeretné újraszámozni, a következő képernyőképek szerint. És ebben a cikkben arról fogok beszélni, hogyan lehet automatikusan számozni vagy újraszámozni az Excel szűrő után.

Automatikus szám vagy újraszámozás szűrő után VBA kóddal

Automatikus számozás vagy újraszámozás a szűrő után a Kutools for Excel segítségével

Automatikus szám vagy újraszámozás szűrő után VBA kóddal

A szűrt állapotban nem alkalmazhatja az Automatikus kitöltés fogantyút a számsor kitöltésére, csak kitöltheti őket a számok egyesével történő beírásával. De ez unalmas és időigényes lesz, ha sok sejt szükséges újraszámozásra. Itt bemutatok egy VBA kódot ennek a feladatnak a megoldására.

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modul ablak.

VBA kód: Automatikus szám vagy újraszámozás a szűrő után

Sub Renumbering()
	'Updateby Extendoffice
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1).SpecialCells(xlCellTypeVisible)
	xIndex = 1
	For Each Rng In WorkRng
		Rng.Value = xIndex
		xIndex = xIndex + 1
	Next
End Sub

3. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra, hogy válasszon egy tartomány cellát, amelyet automatikusan meg akar számozni vagy újraszámozni a sorokat.

4. Ezután kattintson OK, és a kiválasztott tartomány cellákat sorozatosan újraszámoztuk az alábbi képernyőkép szerint:

Megjegyzések: Ez a kód megsemmisíti az eredeti sorozatsorszámokat, amikor megszünteti a szűrési funkciót. Tehát először biztonsági másolatot kell készítenie az adatokról.

Automatikus számozás vagy újraszámozás a szűrő után a Kutools for Excel segítségével

Ha telepítve van Kutools az Excel számára, annak erős Helyezze be a sorozatszámot funkcióval csak gyorsan és egyszerűen szúrhat be sorszámokat a szűrt adatokba.

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, amelyeket újraszámozni szeretne a szűrt adatokhoz.

2. Ezután kattintson Kutools > betétlap > Helyezze be a sorozatszámot, lásd a képernyőképet:

3. Aztán beugrott Helyezze be a sorozatszámot párbeszédpanelen kattintson a gombra Újszerű gomb, lásd a képernyőképet:

4. Ezután hozza létre a sorozatlista számokat, amire szüksége van a bal alsó részben, lásd a képernyőképet:

5. A sorrend beállítása után kattintson a gombra hozzáad gombra, és a szekvenciaelem hozzá lett adva a párbeszédpanelhez, lásd a képernyőképet:

6. Kattintson a gombra Kitöltési tartomány,  és a szűrt adatokat egyszerre újraszámozták. Lásd a képernyőképet:

Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!

Demo: Automatikus számozás vagy újraszámozás a szűrés után a Kutools for Excel segítségével

Kapcsolódó cikk:

Hogyan számolhatjuk automatikusan az egyesített cellákat az Excelben?