V tem članku bomo izvedeli, kako v programu Microsoft Excel izbrisati prazne stolpce prek VBA. Izbrisali bomo stolpce, ki so popolnoma prazni, kar pomeni, da v celotnem stolpcu ni podatkov.
Vzemimo primer in razumemo:
Imamo podatke v območju A1: I21, v katerem stolpec A vsebuje ime, stolpec B je prazen, stolpec C vsebuje naslov ulice, stolpec D mesto, stolpec E je prazen, stolpec F vsebuje regijo, stolpec G je prazen, stolpec H vsebuje državo ime, stolpec I pa vsebuje telefonsko številko.
Iz podatkov želimo izbrisati prazne stolpce, sledite spodnjim korakom in kodi:
- Odprite stran VBE in pritisnite tipko Alt+F11
- Za vnos kode vstavite modul
- Napišite spodnjo kodo:
Sub Delete_Columns () Dim C As Integer C = ActiveSheet.Cells.SpecialCells (xlLastCell) .Column Do Until C = 0 If WorksheetFunction.CountA (Columns (C)) = 0 Potem stolpci (C) .Delete End Če je C = C - 1 Loop End Sub
Koda Pojasnilo:
Najprej smo definirali vse spremenljivke. Nato obseg praznih stolpcev, nato smo uporabili »Do do zanke« za brisanje praznih stolpcev. In zdaj smo definirali prazen stolpec in ukaz delete.
Za zagon kode pritisnite tipko F5 na tipkovnici,
- Vsi prazni stolpci bodo izbrisani.
Na ta način lahko izbrišemo prazne stolpce prek VBA v Microsoft Excelu.
Če so vam bili naši blogi všeč, jih delite s prijatelji na Facebooku. Prav tako nas lahko spremljate na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo, dopolnimo ali inoviramo svoje delo in ga izboljšamo. Pišite nam na spletni strani elektronske pošte