- Автоматичний номер або нумерація після фільтра з кодом VBA
- Автоматичний номер або нумерація після фільтра за допомогою Kutools для Excel
- Демонстрація: автоматичний номер або нумерація після фільтра за допомогою Kutools for Excel
- Рекомендовані інструменти для підвищення продуктивності в Excel
- Вкладка «Office» надає ефективні і зручні вкладки для Office (включаючи Excel), так само, як Chrome, Firefox і новий IE
Як ми всі знаємо, після фільтрації даних, які мають список номерів серій, номери рядків на аркуші будуть відображатися так само, як і вихідні номери, вони не перенумеровуються автоматично. Але іноді ви хочете перенумерувати рядка як послідовність на відфільтрованому аркуші, як показано нижче. І в цій статті я розповім про те, як автоматично вказати номер або змінити нумеру після фільтра в Excel.
Автоматичний номер або нумерація після фільтра з кодом VBA
Автоматичний номер або нумерація після фільтра за допомогою Kutools для Excel
Автоматичне число або номера послідовності заповнення після фільтра:
Kutools for Excel Автора Вставити порядковий номер утиліта може допомогти вам швидко вставляти унікальні послідовні номери в діапазон комірок або відфільтрований список, а також може вставляти послідовність в об'єднані осередки в міру необхідності.
Автоматичний номер або нумерація після фільтра з кодом VBA
У відфільтрованому стані ви не можете застосувати дескриптор автозаповнення, щоб заповнити порядковий номер, ви можете просто заповнити їх, набравши номера один за іншим. Але це буде утомливо і вимагає багато часу, якщо потрібно багато нумерації осередків. Тут я представлю код VBA для вирішення цього завдання.
1, Утримуйте ALT + F11 і відкриває Вікно Microsoft Visual Basic для додатків.
2. Клацання Вставити> модуль, і вставте наступний макрос в Вікно модуля.
Код VBA: автоматичний номер або нумерація після фільтра
Sub Renumbering () 'Updateby20141028 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 ключ для запуску цього коду, і з'явиться вікно підказки, щоб нагадати вам, виберіть комірки діапазону, які ви хочете привласнити номером або перенумерувати рядка, див. Знімок екрана:
4, Потім натисніть OK, і ваші вибрані комірки діапазону були пронумеровані послідовно, як показано нижче:
Увага: Цей код знищить вихідні номери рядків серії, коли ви скасуєте функцію фільтру. Тому спочатку вам потрібно створити резервну копію даних.
Автоматичний номер або нумерація після фільтра за допомогою Kutools для Excel
Якщо ви встановили Kutools for Excel, з його потужним Вставити порядковий номер ви можете вставляти порядкові номери в відфільтровані дані тільки швидко і легко.
Після установки Kutools for Excel, зробіть наступне:
1, Виберіть осередки, які ви хочете перенумерувати для фільтрованих даних.
2, Потім натисніть Kutools> Вставити> Вставити порядковий номер, див. Знімок екрана:
3. Потім в вискочив Вставити порядковий номер діалогове вікно, натисніть Новинки, см. Знімок екрана:
4, А потім створіть номери списків послідовностей, як вам потрібно в лівому нижньому розділі, див. Знімок екрану:
5, Після установки послідовності натисніть Додати і елемент послідовності доданий в діалогове вікно, см. Знімок екрана:
6, Потім натисніть Діапазон заповнення, і відфільтровані дані були пронумеровані відразу. Дивіться скріншот:
Завантажити безкоштовно пробну версію Kutools для Excel зараз!
Демонстрація: автоматичний номер або нумерація після фільтра за допомогою Kutools for Excel
Пов'язана стаття:
Як автоматичне число об'єднаних осередків в Excel?
Рекомендовані інструменти для підвищення продуктивності в Excel
Kutools для Excel допомагає завжди завершувати роботу завчасно, більше часу радіти життю
Ви часто граєте в догонялки з роботою, не вистачає часу на себе і свою сім'ю? Kutools для Excel може допомогти вам розібратися з головоломками 80% Excel і поліпшити 70% ефективність роботи, дати вам більше часу, щоб піклуватися про сім'ю і радіти життю.
- Більше, ніж потужні розширені функції 300 для робітників сценаріїв +1500 зробіть свою роботу набагато простіше, ніж коли-небудь.
- Більше не потрібно запам'ятовувати формули і коди VBA, дайте вашому мозку відпочити.
- Складні і повторні операції можуть бути виконані одноразової обробкою за лічені секунди.
- Щодня скорочуйте тисячі операцій з клавіатурою і мишкою, попрощайтеся з професійними захворюваннями зараз.
- Стати експертом по Excel за хвилини 3, допоможіть швидко отримати визнання і підвищення заробітної плати.
- Високоефективні люди 110,000 і вибір всесвітньо відомих компаній 300 +.
- 60-Day повнофункціональна пробна версія. 60-денна гарантія повернення грошей без причини. Безкоштовне оновлення і підтримка 2 років. Купити один раз, використовувати назавжди.
Вкладка «Office» надає ефективні і зручні вкладки для Office (включаючи Excel), так само, як Chrome, Firefox і новий IE
- Відкривайте і створюйте документи в новій вкладці того ж вікна, а не в нових вікнах.
- Підвищує вашу продуктивність на 50% під час перегляду і редагування декількох документів.
- Одна секунда для перемикання між десятками відкритих документів і скорочення сотень кліків мишкою для вас кожен день!
