Cum se șterg rândurile de deasupra celulei active sau textului specific din Excel?
Dacă există o foaie de lucru uriașă cu mai multe rânduri și doriți doar să ștergeți toate rândurile de deasupra celulei active sau un anumit text, cum îl puteți gestiona? Puteți șterge rândurile selectându-le și apoi faceți clic dreapta pentru a alege Ștergeți din meniul contextual manual. Dar aici, am codul VBA pentru a șterge rapid rândurile de mai sus, dacă sunteți interesat de acesta, vă rugăm să citiți detaliile de mai jos.
Ștergeți rândurile de mai sus cu coduri VBA
Ștergeți rândurile de mai sus cu coduri VBA
Aici vă introduc două coduri VBA pentru dvs., unul este ștergerea rândurilor deasupra activului (celula selectată), altul este eliminarea rândurilor deasupra textului specificat.
1. Selectați o celulă pe care doriți să o ștergeți rânduri deasupra acesteia și apăsați Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Module, și lipiți codul de mai jos în Module script-ul.
VBA: Ștergeți rândurile deasupra celulei active
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. presa F5 tasta, apoi rândurile de deasupra celulei active au fost eliminate. Vedeți captura de ecran:
Dacă doriți să ștergeți rânduri deasupra textului specificat, puteți utiliza sub VBA.
VBA: ștergeți rândurile deasupra textului specificat
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
Notă:
1. În cod, Grupul total este textul pe care vrei să îl găsești, îl poți schimba după cum ai nevoie.
2. Dacă textul pe care îl găsiți a fost deja în primul rând, va apărea un dialog pentru a vă reaminti.
3. Dacă textul pe care îl găsiți nu există în foaie, va apărea o fereastră de dialog prezentată mai jos pentru a vă reaminti.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!