I denne artikkelen lærer vi om hvordan du sletter tomme kolonner gjennom VBA i Microsoft Excel. Vi vil slette kolonnene som er helt tomme, det betyr at hvis det ikke er noen data i hele kolonnen som data.
La oss ta et eksempel og forstå:
Vi har data i område A1: I21, der kolonne A inneholder navn, kolonne B er tom, kolonne C inneholder gateadresse, kolonne D by, kolonne E er tom, kolonne F inneholder region, kolonne G er tom, kolonne H inneholder land navn og kolonne I inneholder telefonnummer.
Vi ønsker å slette de tomme kolonnene fra dataene, følg trinnene og koden nedenfor:
- Åpne VBE -siden for å trykke Alt+F11
- Sett inn modulen for å skrive koden
- Skriv koden nedenfor:
Sub Delete_Columns () Dim C As Integer C = ActiveSheet.Cells.SpecialCells (xlLastCell) .Column Do Till C = 0 If WorksheetFunction.CountA (Columns (C)) = 0 Then Columns (C). Slett Slutt Hvis C = C - 1 sløyfe ende sub
Kode Forklaring:
Først har vi definert alle variablene. Deretter området med tomme kolonner, så har vi brukt "Gjør til sløyfe" for å slette de tomme kolonnene. Og nå har vi definert den tomme kolonnen og slette kommandoen.
For å kjøre koden, trykk på tasten F5 på tastaturet,
- Alle tomme kolonner blir slettet.
På denne måten kan vi slette de tomme kolonnene gjennom VBA i Microsoft Excel.
Hvis du likte bloggene våre, del den med vennene dine på Facebook. Og du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre, utfylle eller innovere arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post