Як автоматично пронумерувати або перенумерувати після фільтра в Excel?
Як ми всі знаємо, після фільтрування даних, що містять список номерів серій, номери рядків на аркуші відображатимуться такими ж, як і вихідні номери, вони не перенумеруються автоматично. Але іноді вам потрібно перенумерувати рядки як послідовність на відфільтрованому аркуші, як показано на наступних скріншотах. І в цій статті я розповім про те, як автоматично нумерувати або перенумерувати після фільтра в Excel.
Автоматичний номер або перенумерування після фільтра з кодом VBA
Автоматична нумерація або перенумерація після фільтрації за допомогою Kutools для Excel
Автоматичний номер або перенумерування після фільтра з кодом 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 клавішу для запуску цього коду, і з'явиться підказка, щоб нагадати вам вибрати комірки діапазону, які ви хочете автоматично пронумерувати або перенумерувати рядки, див. знімок екрана:
4. Потім натисніть OK, а вибрані комірки діапазону були перенумеровані послідовно, як показано на скріншоті нижче:
примітки: Цей код знищить вихідні номери рядків серії, коли ви скасуєте функцію фільтра. Тому спочатку потрібно створити резервну копію даних.
Автоматична нумерація або перенумерація після фільтрації за допомогою Kutools для Excel
Якщо ви встановили Kutools для Excel, з його потужним Вставте порядковий номер Ви можете вставляти порядкові номери у відфільтровані дані лише швидко та легко.
Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів. |
після установки Kutools для Excel, будь ласка, виконайте наступне:
1. Виберіть комірки, які потрібно перенумерувати для відфільтрованих даних.
2. Потім натисніть Кутулс > Insert > Вставте порядковий номер, див. скріншот:
3. Потім у вискочив Вставте порядковий номер діалогове вікно натисніть кнопку Нові , див. знімок екрана:
4. А потім створіть номери списку послідовностей, як вам потрібно, у лівому нижньому розділі, див. Знімок екрана:
5. Після встановлення послідовності натисніть додавати і елемент послідовності був доданий у діалогове вікно, див. знімок екрана:
6. А потім клацніть Діапазон заповнення, і відфільтровані дані були відразу перенумеровані. Дивіться знімок екрана:
Завантажте та безкоштовну пробну версію Kutools для Excel зараз!
Демонстрація: автоматична нумерація або перенумерація після фільтрування за допомогою Kutools для Excel
Пов'язана стаття:
Як автоматично нумерувати об’єднані комірки в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!