Как автоматически пронумеровать или перенумеровать после фильтра в 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?
Лучшие инструменты для офисной работы
Усовершенствуйте свои навыки работы с Excel с помощью Kutools for Excelи испытайте эффективность, как никогда раньше. Kutools for Excel Предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Office Tab Добавляет в Office интерфейс с вкладками и значительно упрощает вашу работу
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
