Как автоматически пронумеровать или перенумеровать после фильтрации в Excel?

Как всем известно, после фильтрации данных, содержащих список порядковых номеров, номера строк на листе будут отображаться так же, как и исходные номера, они не перенумеровываются автоматически. Однако иногда требуется перенумеровать строки последовательно в отфильтрованном листе, как показано на следующих скриншотах. В этой статье я расскажу, как автоматически пронумеровать или перенумеровать после фильтрации в Excel.

Автоматическая нумерация или перенумерация после фильтрации с помощью кода VBA

Автоматическая нумерация или перенумерация после фильтрации с помощью Kutools для Excel

Автоматическая нумерация или перенумерация после фильтрации с помощью кода VBA

В режиме фильтрации вы не можете использовать маркер автозаполнения для заполнения числовой последовательности, вам придется вводить числа по одному. Но это будет утомительно и отнимет много времени, если потребуется перенумеровать множество ячеек. Здесь я представлю код VBA для решения этой задачи.

1. Удерживайте клавиши ALT + F11, и откроется окно Microsoft Visual Basic for Applications.

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 для Excel

Если вы установили Kutools для Excel, с его мощной функцией Вставить номер последовательности, вы сможете быстро и легко вставить порядковые номера только в отфильтрованные данные.

После установки Kutools для Excel выполните следующие действия:

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

2. Затем нажмите Kutools > Вставить > Вставить номер последовательности, см. скриншот:

3. Затем в появившемся диалоговом окне Вставить номер последовательности нажмите кнопку Создать, см. скриншот:

4. И затем создайте список последовательных номеров, как вам нужно, в нижнем левом разделе, см. скриншот:

5. После настройки последовательности нажмите кнопку Добавить, и элемент последовательности будет добавлен в диалоговое окно, см. скриншот:

6. Затем нажмите Заполнить диапазон, и отфильтрованные данные будут немедленно перенумерованы. См. скриншот:

Скачайте и попробуйте Kutools для Excel прямо сейчас!

Демонстрация: Автоматическая нумерация или перенумерация после фильтрации с помощью Kutools для Excel

Связанная статья:

Как автоматически пронумеровать объединенные ячейки в Excel?