Tässä artikkelissa opimme tyhjien sarakkeiden poistamisesta Microsoft Excelin VBA: n kautta. Poistamme sarakkeet, jotka ovat täysin tyhjiä, mikä tarkoittaa, että jos koko sarakkeessa ei ole tietoja, kyseiset tiedot.
Otetaan esimerkki ja ymmärretään:
Meillä on tietoja alueella A1: I21, jossa sarake A sisältää nimen, sarake B on tyhjä, sarake C sisältää katuosoitteen, sarake D Kaupunki, sarake E on tyhjä, sarake F sisältää alueen, sarake G on tyhjä, sarake H sisältää maan nimi ja sarake I sisältää puhelinnumeron.
Haluamme poistaa tyhjät sarakkeet tiedoista, noudata alla annettuja ohjeita ja koodia:
- Avaa VBE -sivu ja paina näppäintä Alt+F11
- Kirjoita koodi asentamalla moduuli
- Kirjoita alla mainittu koodi:
Sub Delete_Columns () Dim C kokonaislukuna C = ActiveSheet.Cells.SpecialCells (xlLastCell) .Column Do Before C = 0 If WorksheetFunction.CountA (Columns (C)) = 0 then Columns (C) .Delete End if C = C - 1 Loop End Sub
Koodin selitys:
Ensin olemme määrittäneet kaikki muuttujat. Sitten tyhjien sarakkeiden alue, sitten olemme käyttäneet "Tee silmukkaan" tyhjien sarakkeiden poistamiseen. Ja nyt olemme määrittäneet tyhjän sarakkeen ja poistokomennon.
Suorita koodi painamalla näppäimistön näppäintä F5,
- Kaikki tyhjät sarakkeet poistetaan.
Tällä tavalla voimme poistaa tyhjät sarakkeet Microsoft Excelin VBA: n kautta.
Jos pidit blogistamme, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa, täydentää tai innovoida työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse