Как да вмъкна автоматично ред въз основа на стойността на клетка в Excel?
Вмъкнете ред по-долу въз основа на стойността на клетката с VBA
Вмъкнете ред по-горе въз основа на стойността на клетката с Kutools за Excel
Вмъкнете ред по-долу въз основа на стойността на клетката с VBA
За да вмъкнете ред въз основа на стойността на клетка чрез стартиране на VBA, моля, направете следните стъпки:
1. Натиснете Alt + F11 клавиши едновременно и a Microsoft Visual Basic за приложения изскача прозорец.
2. кликване Поставете > Модули, след което поставете под VBA кода към изскачащия Модули прозорец.
VBA: Вмъкнете ред по-долу въз основа на стойността на клетката.
Sub BlankLine()
'Updateby20150203
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
3. кликване F5 ключ или бягане изскача диалогов прозорец и изберете колоната, която съдържа нула. Вижте екранна снимка:
4. кликване OK. Тогава празните редове ще бъдат вмъкнати под нулева стойност.
тип:
1. Ако искате да вмъкнете редове въз основа на друга стойност, можете да промените 0 до всяка стойност, която искате във VBA: Ако Rng.Value = "0" Тогава.
2. Ако искате да вмъкнете редове над нула или друга стойност, можете да използвате следния vba код.
VBA: Вмъкване на ред над нулева стойност:
Sub BlankLine()
'Updateby20150203
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
Вмъкнете ред по-горе въз основа на стойността на клетката с Kutools за Excel
Ако не сте запознати с VBA, можете да опитате Kutools за Excel's Изберете конкретни клетки помощна програма и след това вмъкнете редове по-горе.
Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. | ||
След инсталиране Kutools за Excel, моля, направете следното:(Безплатно изтегляне Kutools за Excel сега!)
1. Изберете списъка, от който искате да намерите конкретните клетки, и щракнете Kutools > Изберете > Изберете конкретни клетки. Вижте екранна снимка:
2. В изскачащия диалогов прозорец поставете отметка Цял ред опция и след това отидете на избор Равно на от Специфичен тип списък и след това въведете стойността, която искате да намерите, в дясното текстово поле. Вижте екранна снимка:
3. кликване Okи се появява диалогов прозорец, за да ви напомни броя на избраните редове, просто го затворете.
4. Поставете курсора върху един избран ред и щракнете с десния бутон, за да изберете Поставете от контекстното меню. Вижте екранна снимка:
Сега редовете се вмъкват по-горе въз основа на конкретна стойност.
Вмъкване на редове отгоре въз основа на стойността на клетката
Относителни статии:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!