V tem članku se bomo naučili, kako izbrisati vrstice, če v celotni vrstici ni podatkov.
Sledi posnetek podatkov, ki jih imamo:
Koncept te vadnice je, če je v izbranem obsegu A1: E10 popolna prazna vrstica, potem mora koda vba izbrisati to vrstico.
Slediti moramo naslednjim korakom:
- Kliknite zavihek Razvijalec
- V skupini Koda izberite Visual Basic
- V trenutni modul delovnega lista vnesite naslednjo kodo
Sub DeleteEntireRow ()
Dim i As Long
'Izračun in posodabljanje zaslona sta izklopljena, da pospešite makro
Z aplikacijo
.Izračun = xlRačunanjePriročnik
.ScreenUpdating = Napačno
For i = Selection.Rows.Count To 1 Step -1
Če je WorksheetFunction.CountA (Selection.Rows (i)) = 0 Potem
Selection.Rows (i) .EntireRow.Delete
Konec Če
Naprej i
.Izračun = xlIzračunAvtomatski
.ScreenUpdating = Res
Končaj s
End Sub
- Najprej ročno izbrišemo podatke zapored, da preizkusimo našo kodo.
- Po kopiranju kode; izberite obseg A1: E10 & ročno izbrišite katero koli vrstico
- Zdaj zaženite makro s tipkama ALT + F8 in izberite DeleteEntireRow
- Prazna vrstica je bila izbrisana in vse spodnje vrstice so pomaknjene navzgor.
Na ta način lahko z vba v Microsoft Excelu izbrišemo vrstice.
Naloži-izbriši vrstice v VBA