Як заповнити порядкові номери пропустити приховані рядки в Excel?

Припустимо, у вас є діапазон даних фільтра, який ви хочете заповнити порядковими номерами у відфільтровану порожню комірку, як показано на наступному знімку екрана. У цьому випадку перетягування ручки заповнення не заповнить клітинки правильно, загалом, у цій статті я розповім про кілька хороших прийомів для вирішення цього завдання в Excel.

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

Заповніть порядкові номери, щоб пропустити приховані рядки кодом VBA

Заповніть порядкові номери, щоб пропустити приховані рядки за допомогою Kutools для Excel

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

Щоб заповнити порядкові номери лише до видимих ​​комірок, вам може допомогти проста формула, будь-ласка, зробіть наступне:

1. Введіть цю формулу: = ПІДЗВІТ (103, $ B $ 3: $ B3)(B3 - це видима комірка, яка відповідає комірці, до якої потрібно розпочати заповнення порядкового номера) у першу комірку, де ви хочете заповнити порядкові номери, A3, для цього випадку, а потім натисніть Що натомість? Створіть віртуальну версію себе у ключ, ви отримаєте номер 1, див. знімок екрана:

2. Потім виділіть комірку A3 і перетягніть маркер заповнення вниз до комірок, які потрібно заповнити порядковими номерами, див. Знімок екрана:

Заповніть порядкові номери, щоб пропустити приховані рядки кодом VBA

Наступний код VBA також може допомогти вам заповнити порядкові номери у лише видимі клітинки. Будь ласка, зробіть так:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код 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 ..., вищезазначені методи не спрацюють. Але, будь ласка, не турбуйтеся про, Kutools для ExcelАвтора Вставте порядковий номер утиліта допоможе вам швидко і легко закінчити її.

після установки Kutools для Excel, будь ласка, виконайте наступне:

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

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

3. У розгорнутому діалоговому вікні, будь-ласка, вкажіть потрібні параметри у нижній лівій частині, водночас ви можете переглянути послідовність у правій нижній панелі, див. Знімок екрана:

4. Після закінчення налаштувань натисніть додавати , щоб зберегти цей новий елемент у наведеному вище списку, див. знімок екрана:

6. А потім виберіть створений вами елемент і натисніть Діапазон заповнення , рядки послідовності були заповнені лише у видимі клітинки, див. знімок екрана:

Завантажте та безкоштовну пробну версію Kutools для Excel зараз!

Демо: заповніть порядкові номери, пропустіть приховані рядки за допомогою Kutools для Excel