Cum se șterg toate rândurile de sub anumite rânduri sau celule active din Excel?
Pentru ștergerea tuturor rândurilor de sub anumite rânduri sau celule active, acest articol vă poate ajuta.
Ștergeți toate rândurile de sub anumite rânduri din Excel cu codul VBA
Ștergeți toate rândurile de sub celula activă în Excel cu cod VBA
Ștergeți toate rândurile de sub anumite rânduri din Excel cu codul VBA
Următorul cod VBA vă va ajuta să ștergeți toate rândurile de sub un anumit rând din Excel.
1. presa Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați și lipiți următorul cod VBA în fereastra Cod.
Cod VBA: ștergeți toate rândurile de sub anumite rânduri din Excel
Sub DeleteRowsBelow()
Worksheets("Sheet1").Rows(5 & ":" & Worksheets("Sheet1").Rows.Count).Delete
End Sub
notițe: În codul VBA, numărul 5 și Sheet1 indică toate rândurile de sub rândul 5 (includeți rândul 5) din Sheet1 vor fi șterse după executarea codului. Le puteți schimba în funcție de nevoile dvs.
3. presa F5 tasta pentru a rula codul. Apoi toate rândurile de sub rândul 5 (include rândul 5) sunt șterse imediat după cum se arată în imaginea de mai jos.
Ștergeți toate rândurile de sub celula activă în Excel cu cod VBA
Pentru ștergerea tuturor rândurilor chiar sub rândul celulei active din Excel, puteți încerca următorul cod VBA.
1. Selectați o celulă pe care veți șterge toate rândurile de sub ea, apoi apăsați Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați și lipiți următorul cod VBA în fereastra Cod.
Cod VBA: ștergeți toate rândurile de sub rândul celulei active din Excel
Sub DeleteAllBelow()
Rows(ActiveCell.Row & ":" & Rows.Count).Delete
End Sub
3. apasă pe F5 tasta pentru a rula codul. Apoi, toate rândurile de sub rândul de celule active (include rândul de celule active) sunt șterse imediat.
Legate de articole:
- Cum să ștergeți toate rândurile, cu excepția primului rând de antet din Excel?
- Cum se șterg rânduri dacă celula este mai mare / mai mică decât o anumită valoare în Excel?
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!