U ovom ćemo članku naučiti o tome kako izbrisati prazne stupce kroz VBA u programu Microsoft Excel. Izbrisat ćemo potpuno prazne stupce, što znači ako u cijelom stupcu nema podataka.
Uzmimo primjer i shvatimo:
Imamo podatke u rasponu A1: I21, u kojem stupac A sadrži naziv, stupac B je prazan, stupac C sadrži adresu ulice, stupac D Grad, stupac E je prazan, stupac F sadrži regiju, stupac G je prazan, stupac H sadrži državu ime, a stupac I sadrži telefonski broj.
Želimo izbrisati prazne stupce iz podataka, slijedite dolje navedene korake i kôd:
- Otvorite stranicu VBE kako biste pritisnuli tipke Alt+F11
- Umetnite modul za pisanje koda
- Napišite dolje navedeni kod:
Sub Delete_Columns () Dim C As Integer C = ActiveSheet.Cells.SpecialCells (xlLastCell) .Column Do Until C = 0 If WorksheetFunction.CountA (Columns (C)) = 0 Then Columns (C) .Delete End If C = C - 1 Sub Loop End Sub
Objašnjenje koda:
Prvo smo definirali sve varijable. Zatim raspon praznih stupaca, zatim smo upotrijebili “Učiniti do petlje” za brisanje praznih stupaca. Sada smo definirali prazan stupac i naredbu za brisanje.
Za pokretanje koda pritisnite tipku F5 na tipkovnici,
- Brisat će se svi prazni stupci.
Na taj način možemo izbrisati prazne stupce kroz VBA u programu Microsoft Excel.
Ako vam se sviđaju naši blogovi, podijelite ih sa svojim prijateljima na Facebooku. Također nas možete pratiti na Twitteru i Facebooku.
Voljeli bismo čuti vaše mišljenje, javite nam kako možemo poboljšati, nadopuniti ili inovirati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte