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

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

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

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

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

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

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

1. Введите эту формулу: =SUBTOTAL(103,$B$3:$B3) (B3 — это видимая ячейка, соответствующая ячейке, с которой вы хотите начать заполнение последовательного номера) в первую ячейку, где вы хотите заполнить последовательные номера, A3, в данном случае, а затем нажмите клавишу Enter, и вы получите число 1, см. снимок экрана:

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

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

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

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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

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

Два вышеупомянутых метода могут помочь вам заполнить последовательные номера только в видимые ячейки, но если вы хотите заполнить последовательность, например AA-0001-BB, AA-0002-BB, AA-0003-BB…, эти методы не сработают. Но не беспокойтесь, утилита Insert Sequence Number из Kutools для Excel поможет вам быстро и легко завершить эту задачу.

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

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

2. Нажмите Kutools > Insert > Insert Sequence Number, в диалоговом окне Insert Sequence Number нажмите кнопку New, см. снимки экрана:

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

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

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

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

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