Прескочи на основното съдържание

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

Автор: Xiaoyang Последна промяна: 2020-05-28

Да предположим, че имате диапазон от данни за филтър, който искате да попълните поредни номера във филтрираната празна клетка, както е показано на следната екранна снимка. В този случай плъзгането на манипулатора за попълване като цяло няма да запълни правилно клетките, в тази статия ще говоря за някои добри трикове за решаване на тази задача в Excel.

документ попълнете надолу пропуснете скрит 1 2 документ попълнете надолу пропуснете скрит 2

Попълване на поредни номера, пропускане на скрити редове с формула

Попълнете поредните номера, пропускайте скритите редове с VBA код

Попълнете последователни номера, пропуснете скритите редове с Kutools за Excel


За да попълните поредни номера само до видимите клетки, проста формула може да ви помогне, моля, направете следното:

1. Въведете тази формула: =МЕЖДУНАРОДНО(103;$B$3:$B3)(B3 е видимата клетка, която съответства на клетката, в която искате да започнете да попълвате поредния номер до ) в първата клетка, където искате да попълвате поредните номера, A3, за този пример, и след това натиснете Въведете ключ, ще получите номер 1, вижте екранната снимка:

документ попълнете надолу пропуснете скрит 3

2. След това изберете клетка A3 и плъзнете манипулатора за попълване надолу до клетките, които искате да попълните с поредните номера, вижте екранната снимка:

документ попълнете надолу пропуснете скрит 4


Следният VBA код също може да ви помогне да попълните поредните номера само във видими клетки, моля, направете следното:

1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. Щракнете Поставете > Модулии поставете следния код в Модули Window.

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 ключ, за да изпълните този код, и се появява поле за подкана, за да ви напомни, че изберете диапазона от данни, който искате да попълните, вижте екранна снимка:

документ попълнете надолу пропуснете скрит 5

4, И после щракнете върху OK бутон, поредните номера са попълнени само във видимите клетки.


Само горните два метода могат да ви помогнат да попълните последователните номера във видимите клетки, ако искате да попълните последователността като AA-0001-BB, AA-0002-BB, AA-0003-BB…, горните методи няма да работят. Но, моля, не се тревожете за, Kutools за ExcelЕ Въведете пореден номер помощната програма може да ви помогне да го завършите бързо и лесно.

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

След инсталиране Kutools за Excel, моля, направете следното:

1. Изберете клетките, които искате да попълните низове от последователност.

2. Щракнете Kutools > Поставете > Въведете пореден номер, В Въведете пореден номер кликнете върху НОВ бутон, вижте екранни снимки:

2 документ попълнете надолу пропуснете скрит 7

3. В разширения диалогов прозорец, моля, задайте необходимите настройки в долната лява секция, като в същото време можете да прегледате последователността в долния десен панел, вижте екранната снимка:

документ попълнете надолу пропуснете скрит 8

4. След като завършите настройките, щракнете Добави бутон, за да запазите този нов елемент в горното списъчно поле, вижте екранната снимка:

документ попълнете надолу пропуснете скрит 9

6. След това изберете елемента, който сте създали, и щракнете Обхват на запълване бутон, последователните низове са попълнени само във видимите клетки, вижте екранната снимка:

документ попълнете надолу пропуснете скрит 10

Изтеглете и изпробвайте безплатно Kutools за Excel сега!


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

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
What's the magic with the 103?
This comment was minimized by the moderator on the site
It worked!! Thank you so muh!
This comment was minimized by the moderator on the site
none of these BS worked...The first one using formula, had skipped numbers and repeating other numbers... is there an easier way? FFS!
This comment was minimized by the moderator on the site
I have different worksheets in a workbook and I want to use VBA code for all worksheet at once .
Can anybody help me out.


For Example:
In every sheet in A1 I have S.No. and I want it to be a Sequence number 1 2 3 4 .....
This comment was minimized by the moderator on the site
VERY THANKS
This comment was minimized by the moderator on the site
I have been manually adding serial numbers to sheets containing hundreds, if not thousands, of rows since the past few years. The above formula has literally save a whole lot of hours for me, for the rest of my life. Thank you, Op.
This comment was minimized by the moderator on the site
This is not working. Instead of filling series, it's just copying first cell.
This comment was minimized by the moderator on the site
It doesn't work for me either! I get 1 in the original cell and then 1 in every cell I copy the formula to.
This comment was minimized by the moderator on the site
All of these steps above are way too complicated when I just want to double click the Fill Handle and Fill Down over hidden rows. Could Kutools give us a way to AutoFill using the Fill handle over filtered/hidden rows just using double click?
This comment was minimized by the moderator on the site
Hello, Matt,
Thank you for your comment, Kutools does not support this feature so far, but, we will consider your suggestion.
Thank you!
This comment was minimized by the moderator on the site
How can we use this solution with a custom starting number: Fill Down Sequence Numbers Skip Hidden Rows With VBA Code
This comment was minimized by the moderator on the site
Thank you! This works!!! Really appreciate it! Take Care and God Bless, PB
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations