În acest articol vom învăța cum să ștergem rândurile atunci când nu există date în întregul rând.
Urmează instantaneul datelor pe care le avem:
Conceptul din spatele acestui tutorial este dacă există vreun rând complet gol în intervalul selectat A1: E10, atunci codul vba ar trebui să șteargă acel rând.
Trebuie să urmăm pașii de mai jos:
- Faceți clic pe fila Dezvoltator
- Din grupul de coduri, selectați Visual Basic
- Introduceți următorul cod în modulul de foaie de lucru curent
Sub DeleteEntireRow ()
Dim i As Long
„Calculul și actualizarea ecranului sunt dezactivate pentru a accelera macro-ul
Cu aplicație
.Calculation = xlCalculationManual
.ScreenUpdating = False
Pentru i = Selecție.Rânduri.Cont la 1 pas -1
Dacă WorksheetFunction.CountA (Selection.Rows (i)) = 0 Atunci
Selection.Rows (i) .EntireRow.Elete
End If
Apoi eu
.Calculation = xlCalculationAutomatic
.ScreenUpdating = Adevărat
Se termina cu
Sfârșitul Sub
- Mai întâi să ștergem manual datele într-un rând pentru a ne testa codul.
- După copierea codului; selectați gama A1: E10 și ștergeți manual orice rând
- Acum rulați macrocomanda folosind tasta ALT + F8 și selectați DeleteEntireRow
- Rândul gol a fost șters și toate rândurile de mai jos sunt deplasate în sus.
În acest fel putem șterge rânduri folosind vba în Microsoft Excel.
Descărcare-Ștergere rânduri în VBA