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

Предположим, я пронумеровал строки от 1 до 20 в столбце, теперь, когда я вставляю или удаляю строку из диапазона данных, я хочу, чтобы список номеров можно было перенумеровать автоматически. Можно ли выполнить эту задачу в Excel?

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

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

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

Фактически, функция Row в Excel может помочь вам автоматически перенумеровать строки после вставки или удаления строк, пожалуйста, сделайте следующее:

1. Введите эту формулу: = СТРОКА () - 1 в ячейку A2, а затем перетащите маркер заполнения вниз к ячейкам, в которых вы хотите пронумеровать строки, см. снимок экрана:

Внимание: Если ваш список номеров начинается с первой ячейки, вы можете изменить формулу как = СТРОКА (), вы можете прибавить или вычесть из формулы, если ваши числа не совпадают с фактической строкой, например, = СТРОКА () - 3, = СТРОКА () + 10...

2. Затем создайте таблицу для этого диапазона данных, выберите диапазон данных и щелкните Вставить > Настольные, а затем в Создать таблицу диалоговое окно, отметьте В моей таблице есть заголовки если в вашем диапазоне есть заголовки, см. снимок экрана:

3, Затем нажмите OK, таблица была создана сразу, и теперь, когда вы вставляете или удаляете строки в диапазоне таблицы, номера строк всегда обновляются автоматически, см. снимок экрана:

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

За исключением вышеуказанного метода формулы, вы также можете завершить его кодом VBA.

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

2. Щелкните правой кнопкой мыши вкладку листа и выберите Просмотреть код из контекстного меню во всплывающем Microsoft Visual Basic для приложений окна, скопируйте и вставьте следующий код в пустое окно модуля.

Код VBA: автоматическая нумерация строк после вставки или удаления строк:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160612
    Dim I As Integer
    I = 1
    Application.EnableEvents = False
    For I = 1 To 20
        Range("A" & I).Value = I
    Next
    Range("A21").Value = ""
    Application.EnableEvents = True
End Sub

3. Затем сохраните и закройте этот код, когда вы вводите первую цифру 1 в ячейку A1, порядковые номера от 1 до 20 будут заполнены автоматически. Если вы вставляете или удаляете строки из диапазона, номер серии сразу будет автоматически перенумерован.

Внимание: В приведенном выше коде буква A указывает букву столбца, которую вы хотите заполнить порядковым номером, 1 К 20 это строки, которые вы хотите пронумеровать, и A21 это ссылка на ячейку рядом с вашей последней пронумерованной ячейкой. Вы можете менять их по своему усмотрению.

Демонстрация: нумеровать строки после автоматической вставки или удаления строк на листе Excel

---

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

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

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

Больше информации... Скачать бесплатно... Покупка ... 

---

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

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

Больше информации... Скачать бесплатно... Покупка ...