Как автоматически пронумеровать или перенумеровать после фильтра в Excel?
Как все мы знаем, после фильтрации данных, которые имеют список номеров серий, номера строк на листе будут отображаться так же, как исходные номера, они не перенумеровываются автоматически. Но иногда вы хотите изменить нумерацию строк в отфильтрованном листе как последовательность, как показано на следующих снимках экрана. В этой статье я расскажу о том, как автоматически пронумеровать или перенумеровать после фильтра в Excel.
Автоматический номер или перенумеровать после фильтра с кодом VBA
Автоматический номер или перенумеровать после фильтра с помощью Kutools for Excel
![]() |
![]() |
![]() |
Автоматический номер или перенумеровать после фильтра с кодом VBA
В отфильтрованном состоянии вы не можете применить дескриптор автозаполнения для заполнения числовой последовательности, вы просто можете заполнить их, вводя числа один за другим. Но это будет утомительно и отнимет много времени, если требуется перенумерация большого количества ячеек. Здесь я представлю код VBA для решения этой задачи.
1. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.
2. Нажмите Вставить > Модули, и вставьте следующий макрос в Окно модуля.
Код 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 for Excel
Если вы установили Kutools for Excel, с его мощным Вставить порядковый номер функция, вы можете быстро и легко вставлять порядковые номера в отфильтрованные данные.
Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. |
После установки Kutools for Excel, пожалуйста, сделайте следующее:
1. Выделите ячейки, которые вы хотите изменить нумерацию для отфильтрованных данных.
2. Затем нажмите Кутулс > Вставить > Вставить порядковый номер, см. снимок экрана:
3. Затем в выскочившем Вставить порядковый номер диалоговое окно, нажмите Новинки кнопку, см. снимок экрана:
4. А затем создайте номера списка последовательностей по мере необходимости в левом нижнем разделе, см. Снимок экрана:
5. После установки последовательности нажмите Добавить кнопку, и элемент последовательности был добавлен в диалоговое окно, см. снимок экрана:
6, Затем нажмите Диапазон заполнения, и отфильтрованные данные были сразу перенумерованы. Смотрите скриншот:
Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!
Демо: автоматический номер или перенумеровать после фильтра с помощью Kutools for Excel
Связанная статья:
Как автоматически пронумеровать объединенные ячейки в Excel?
Лучшие инструменты для работы в офисе
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
