Jak odstranit řádky nad aktivní buňkou nebo konkrétním textem v aplikaci Excel?
Pokud existuje obrovský list s více řádky a chcete pouze odstranit všechny řádky nad aktivní buňkou nebo konkrétním textem, jak to zvládnete? Řádky můžete odstranit tak, že je vyberete a pak kliknete pravým tlačítkem myši a vyberete Odstranit z místní nabídky ručně. Ale tady mám kód VBA, který rychle smaže řádky výše, pokud vás to zajímá, přečtěte si níže uvedený detail.
Smažte řádky výše pomocí kódů VBA
Smažte řádky výše pomocí kódů VBA
Zde vám představím dva kódy VBA, jeden je odstranění řádků nad aktivní (vybranou buňkou), druhý je odstranění řádků nad zadaným textem.
1. Vyberte buňku, ze které chcete odstranit řádky nad ní, a stiskněte Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno.
2. cvaknutí Vložit > Modula vložte níže uvedený kód do Modul skripty.
VBA: Odstranit řádky nad aktivní buňkou
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. lis F5 klíč, pak byly odstraněny řádky nad aktivní buňkou. Viz screenshot:
Chcete-li odstranit řádky nad zadaným textem, můžete použít pod VBA.
VBA: Odstraňte řádky nad zadaným textem
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
Poznámka:
1. V kódu Celková skupina je text, který chcete najít, můžete jej podle potřeby změnit.
2. Pokud je text, který jste našli, již v prvním řádku, zobrazí se dialogové okno, které vám to připomene.
3. Pokud text, který najdete, v listu neexistuje, zobrazí se vám dialogové okno zobrazené níže, které vám to připomene.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
