Как да изтриете редове над активна клетка или конкретен текст в Excel?
Ако има огромен работен лист с множество редове и просто искате да изтриете всички редове над активната клетка или конкретен текст, как можете да се справите? Можете да изтриете редовете, като ги изберете и след това щракнете с десния бутон, за да изберете Изтриване от контекстното меню ръчно. Но тук имам VBA код за бързо изтриване на редове по-горе, ако се интересувате от него, моля, прочетете подробностите по-долу.
Изтрийте редовете по-горе с VBA кодове
Изтрийте редовете по-горе с VBA кодове
Тук представям два VBA кода за вас, единият е изтриване на редове над активната (избрана клетка), друг е премахване на редовете над указания текст.
1. Изберете клетка, над която искате да изтриете редове, и натиснете Alt + F11 бутони за отваряне Microsoft Visual Basic за приложения прозорец.
2. кликване Поставете > Модулии поставете кода по-долу към Модули скриптове.
VBA: Изтриване на редове над активната клетка
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. Натиснете F5 ключ, тогава редовете над активната клетка са премахнати. Вижте екранна снимка:
Ако искате да изтриете редове над указания текст, можете да използвате под VBA.
VBA: Изтриване на редове над посочения текст
Sub DeleteRowsABove()
'UpdatebyExtendoffice20161109
Dim fRg As Range
Set fRg = Cells.Find(What:="Total Group", LookAt:=xlWhole)
If Not fRg Is Nothing Then
If fRg.Row <> 1 Then
Range("A1", fRg.Offset(-1)).EntireRow.Delete
Else
MsgBox "Total Group is in the first row already", vbInformation, "Kutools for Excel"
End If
Else
MsgBox "Do not find Total Group", vbInformation, "Kutools for Excel"
End If
End Sub
Забележка:
1. В кода, Общо група е текстът, който искате да намерите, можете да го промените според нуждите си.
2. Ако текстът, който намерите, вече е бил в първия ред, ще се появи диалогов прозорец, за да ви напомни.
3. Ако текстът, който намерите, не съществува в листа, ще се появи диалогов прозорец, както е показано на екранната снимка по-долу, за да ви напомни.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
