Wie lösche ich Zeilen über einer aktiven Zelle oder einem bestimmten Text in Excel?
Wenn es ein großes Arbeitsblatt mit mehreren Zeilen gibt und Sie nur alle Zeilen über der aktiven Zelle oder einem bestimmten Text löschen möchten, wie können Sie damit umgehen? Sie können die Zeilen löschen, indem Sie sie auswählen und dann mit der rechten Maustaste klicken, um manuell Löschen aus dem Kontextmenü auszuwählen. Aber hier habe ich VBA-Code, um die obigen Zeilen schnell zu löschen. Wenn Sie daran interessiert sind, lesen Sie bitte die folgenden Details.
Löschen Sie die obigen Zeilen mit VBA-Codes
Löschen Sie die obigen Zeilen mit VBA-Codes
Hier stelle ich zwei VBA-Codes für Sie vor: Einer löscht Zeilen über der aktiven (ausgewählten Zelle), ein anderer entfernt die Zeilen über dem angegebenen Text.
1. Wählen Sie eine Zelle aus, deren Zeilen darüber gelöscht werden sollen, und drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modulund fügen Sie den folgenden Code in das ein Modul Skripte.
VBA: Löschen Sie Zeilen über der aktiven Zelle
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. Drücken Sie F5 Schlüssel, dann wurden die Zeilen über der aktiven Zelle entfernt. Siehe Screenshot:
Wenn Sie Zeilen über dem angegebenen Text löschen möchten, können Sie diese unter VBA verwenden.
VBA: Löschen Sie Zeilen über dem angegebenen Text
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
Hinweis:
1. Im Code Gesamtgruppe Ist der Text, den Sie finden möchten, können Sie ihn nach Bedarf ändern.
2. Wenn sich der gefundene Text bereits in der ersten Zeile befindet, wird ein Dialogfeld angezeigt, das Sie daran erinnert.
3. Wenn der gefundene Text nicht im Blatt vorhanden ist, wird ein Dialogfeld wie im folgenden Screenshot angezeigt, um Sie daran zu erinnern.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!