Как да попълните поредни номера, за да пропуснете скрити редове в Excel?
Да предположим, че имате диапазон от данни за филтър, който искате да попълните поредни номера във филтрираната празна клетка, както е показано на следната екранна снимка. В този случай плъзгането на манипулатора за попълване като цяло няма да запълни правилно клетките, в тази статия ще говоря за някои добри трикове за решаване на тази задача в Excel.
Попълване на поредни номера, пропускане на скрити редове с формула
Попълнете поредните номера, пропускайте скритите редове с VBA код
Попълнете последователни номера, пропуснете скритите редове с Kutools за Excel
Попълване на поредни номера, пропускане на скрити редове с формула
За да попълните поредни номера само до видимите клетки, проста формула може да ви помогне, моля, направете следното:
1. Въведете тази формула: =МЕЖДУНАРОДНО(103;$B$3:$B3)(B3 е видимата клетка, която съответства на клетката, в която искате да започнете да попълвате поредния номер до ) в първата клетка, където искате да попълвате поредните номера, A3, за този пример, и след това натиснете Въведете ключ, ще получите номер 1, вижте екранната снимка:
2. След това изберете клетка A3 и плъзнете манипулатора за попълване надолу до клетките, които искате да попълните с поредните номера, вижте екранната снимка:
Попълнете поредните номера, пропускайте скритите редове с VBA код
Следният 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 ключ, за да изпълните този код, и се появява поле за подкана, за да ви напомни, че изберете диапазона от данни, който искате да попълните, вижте екранна снимка:
4, И после щракнете върху OK бутон, поредните номера са попълнени само във видимите клетки.
Попълнете последователни номера, пропуснете скритите редове с Kutools за Excel
Само горните два метода могат да ви помогнат да попълните последователните номера във видимите клетки, ако искате да попълните последователността като AA-0001-BB, AA-0002-BB, AA-0003-BB…, горните методи няма да работят. Но, моля, не се тревожете за, Kutools за ExcelЕ Въведете пореден номер помощната програма може да ви помогне да го завършите бързо и лесно.
Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:
1. Изберете клетките, които искате да попълните низове от последователност.
2. Щракнете Kutools > Поставете > Въведете пореден номер, В Въведете пореден номер кликнете върху НОВ бутон, вижте екранни снимки:
3. В разширения диалогов прозорец, моля, задайте необходимите настройки в долната лява секция, като в същото време можете да прегледате последователността в долния десен панел, вижте екранната снимка:
4. След като завършите настройките, щракнете Добави бутон, за да запазите този нов елемент в горното списъчно поле, вижте екранната снимка:
6. След това изберете елемента, който сте създали, и щракнете Обхват на запълване бутон, последователните низове са попълнени само във видимите клетки, вижте екранната снимка:
Изтеглете и изпробвайте безплатно Kutools за Excel сега!
Демонстрация: Попълнете последователни номера, пропуснете скрити редове с Kutools за Excel
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!