Перейти до основного матеріалу

Як автоматично пронумерувати або перенумерувати після фільтра в Excel?

Як ми всі знаємо, після фільтрування даних, що містять список номерів серій, номери рядків на аркуші відображатимуться такими ж, як і вихідні номери, вони не перенумеруються автоматично. Але іноді вам потрібно перенумерувати рядки як послідовність на відфільтрованому аркуші, як показано на наступних скріншотах. І в цій статті я розповім про те, як автоматично нумерувати або перенумерувати після фільтра в Excel.

Автоматичний номер або перенумерування після фільтра з кодом VBA

Автоматична нумерація або перенумерація після фільтрації за допомогою Kutools для Excel

doc-перенумерувати-фільтр-1 -2 doc-перенумерувати-фільтр-2

Автоматичний номер або перенумерування після фільтра з кодом VBA

У відфільтрованому стані ви не можете застосувати маркер автозаповнення для заповнення послідовності чисел, ви можете просто заповнити їх, ввівши цифри по одному. Але це буде нудно і трудомістко, якщо існує багато клітин, які потребують перенумерації. Тут я представив код VBA для вирішення цього завдання.

1. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.

2. Клацання Insert > Модуліта вставте наступний макрос у Вікно модуля.

Код VBA: автоматичний номер або перенумерування після фільтра

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. Після вставки коду, натисніть F5 клавішу для запуску цього коду, і з'явиться підказка, щоб нагадати вам вибрати комірки діапазону, які ви хочете автоматично пронумерувати або перенумерувати рядки, див. знімок екрана:

doc-перенумерувати-фільтр-3

4. Потім натисніть OK, а вибрані комірки діапазону були перенумеровані послідовно, як показано на скріншоті нижче:

doc-перенумерувати-фільтр-3

примітки: Цей код знищить вихідні номери рядків серії, коли ви скасуєте функцію фільтра. Тому спочатку потрібно створити резервну копію даних.


Автоматична нумерація або перенумерація після фільтрації за допомогою Kutools для Excel

Якщо ви встановили Kutools для Excel, з його потужним Вставте порядковий номер Ви можете вставляти порядкові номери у відфільтровані дані лише швидко та легко.

Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів. 

після установки Kutools для Excel, будь ласка, виконайте наступне:

1. Виберіть комірки, які потрібно перенумерувати для відфільтрованих даних.

2. Потім натисніть Кутулс > Insert > Вставте порядковий номер, див. скріншот:

3. Потім у вискочив Вставте порядковий номер діалогове вікно натисніть кнопку Нові , див. знімок екрана:

doc-перенумерувати-фільтр-3

4. А потім створіть номери списку послідовностей, як вам потрібно, у лівому нижньому розділі, див. Знімок екрана:

doc-перенумерувати-фільтр-3

5. Після встановлення послідовності натисніть додавати і елемент послідовності був доданий у діалогове вікно, див. знімок екрана:

doc-перенумерувати-фільтр-3

6. А потім клацніть Діапазон заповнення,  і відфільтровані дані були відразу перенумеровані. Дивіться знімок екрана:

doc-перенумерувати-фільтр-3

Завантажте та безкоштовну пробну версію Kutools для Excel зараз!


Демонстрація: автоматична нумерація або перенумерація після фільтрування за допомогою Kutools для Excel

Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!

Пов'язана стаття:

Як автоматично нумерувати об’єднані комірки в Excel?

Найкращі інструменти продуктивності офісу

Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

вкладка kte 201905


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Deseo felicitarlo(s) por tan EXCELente trabajo. Enhorabuena!
This comment was minimized by the moderator on the site
Thank you, thanks alot
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations