Note: The other languages of the website are Google-translated. Back to English

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

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

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

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

doc-перенумерация-фильтр-1 -2 doc-перенумерация-фильтр-2

Автоматический номер или перенумеровать после фильтра с кодом 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 нажмите клавишу для запуска этого кода, и появится диалоговое окно с напоминанием о выборе ячеек диапазона, для которых вы хотите автоматически пронумеровать или перенумеровать строки, см. снимок экрана:

doc-перенумерация-фильтр-3

4. Затем нажмите OK, и выбранные ячейки диапазона были последовательно перенумерованы, как показано на скриншоте ниже:

doc-перенумерация-фильтр-3

Внимание: Этот код уничтожит номера строк исходной серии, когда вы отмените функцию фильтрации. Так что сначала вам нужно сделать резервную копию ваших данных.


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

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

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. 

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

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

2. Затем нажмите Кутулс > Вставить > Вставить порядковый номер, см. снимок экрана:

3. Затем в выскочившем Вставить порядковый номер диалоговое окно, нажмите Новинки кнопку, см. снимок экрана:

doc-перенумерация-фильтр-3

4. А затем создайте номера списка последовательностей по мере необходимости в левом нижнем разделе, см. Снимок экрана:

doc-перенумерация-фильтр-3

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

doc-перенумерация-фильтр-3

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

doc-перенумерация-фильтр-3

Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!


Демо: автоматический номер или перенумеровать после фильтра с помощью Kutools for Excel

Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!

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

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


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (2)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо большое
Этот комментарий был сведен к минимуму модератором на сайте
Deseo felicitarlo(s) por tan EXCELente trabajo. Энхорабуэна!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL