U ovom ćemo članku naučiti kako izbrisati retke ako nema podataka u cijelom retku.
Slijedi snimak podataka koje imamo:
Koncept koji stoji iza ovog vodiča je ako se u odabranom rasponu A1: E10 nađe potpuni prazan redak, tada bi vba kôd trebao izbrisati taj redak.
Moramo slijediti korake u nastavku:
- Kliknite karticu Developer
- Iz grupe kodova odaberite Visual Basic
- Unesite sljedeći kôd u trenutni modul radnog lista
PodizbrišiEntireRow ()
Dim i As Long
'Izračun i ažuriranje zaslona isključeni su kako bi se ubrzala makronaredba
S aplikacijom
.Izračun = xlProračunPriručnik
.ScreenUpdating = Netačno
Za i = Izbor.Redovi.Broj do 1 koraka -1
Ako je WorksheetFunction.CountA (Selection.Rows (i)) = 0 Zatim
Selection.Rows (i) .EntireRow.Delete
Završi ako
Sljedeći i
.Izračun = xlIzračunAutomatski
.ScreenUpdating = Istina
Završi s
Kraj podm
- Hajdemo prvo ručno izbrisati podatke zaredom kako bismo testirali naš kôd.
- Nakon kopiranja koda; odaberite raspon A1: E10 & ručno izbrišite bilo koji redak
- Sada pokrenite makro pomoću tipki ALT + F8 i odaberite DeleteEntireRow
- Prazan redak je izbrisan i svi donji redovi pomaknuti su prema gore.
Na ovaj način možemo izbrisati retke pomoću vba u Microsoft Excelu.
Preuzmi-Izbriši retke u VBA-i