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

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

Заполните порядковые номера, пропустите скрытые строки с помощью формулы

Заполните порядковые номера, пропустите скрытые строки с кодом VBA

Заполните порядковые номера, пропустите скрытые строки с помощью Kutools for Excel

Заполните порядковые номера, пропустите скрытые строки с помощью формулы

Чтобы заполнить порядковые номера только видимыми ячейками, вам может помочь простая формула. Сделайте следующее:

1. Введите эту формулу: = ПРОМЕЖУТОЧНЫЙ ИТОГ (103; B $ 3: B3)(B3 - это видимая ячейка, соответствующая ячейке, с которой вы хотите начать заполнение порядкового номера) в первую ячейку, в которую вы хотите заполнить порядковые номера, A3, для этого экземпляра, а затем нажмите Enter key вы получите цифру 1, см. снимок экрана:

2. Затем выберите ячейку A3 и перетащите маркер заполнения вниз к ячейкам, которые вы хотите заполнить порядковыми номерами, см. Снимок экрана:

Заполните порядковые номера, пропустите скрытые строки с кодом VBA

Следующий код VBA также может помочь вам заполнить порядковые номера только видимыми ячейками, пожалуйста, сделайте следующее:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: заполните порядковые номера, пропустите скрытые строки:

Sub FillValue()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xVal As Long
    Dim I As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = xRg.SpecialCells(xlVisible)
    Debug.Print xRg.Address
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        xVal = xVal + 1
        xCell = xVal
    Next
End Sub

3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится диалоговое окно, напоминающее вам о выборе диапазона данных, который вы хотите заполнить, см. снимок экрана:

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

Заполните порядковые номера, пропустите скрытые строки с помощью Kutools for Excel

Только два вышеуказанных метода могут помочь вам заполнить порядковые номера в видимых ячейках, если вы хотите заполнить последовательность как AA-0001-BB, AA-0002-BB, AA-0003-BB…, вышеуказанные методы не будут работать. Но, пожалуйста, не беспокойтесь о том, Kutools for ExcelАвтора Вставить порядковый номер Утилита поможет вам закончить это быстро и легко.

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

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

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

3. В развернутом диалоговом окне укажите необходимые настройки в левом нижнем разделе, в то же время вы можете предварительно просмотреть последовательность в правой нижней панели, см. Снимок экрана:

4. После завершения настройки нажмите Добавить кнопку, чтобы сохранить этот новый элемент в поле списка выше, см. снимок экрана:

6. Затем выберите созданный элемент и нажмите Диапазон заполнения , строки последовательности были заполнены только видимыми ячейками, см. снимок экрана:

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

Демо: Заполните порядковые номера, пропустите скрытые строки с помощью Kutools for Excel