I denne artikel lærer vi om, hvordan du sletter tomme kolonner via VBA i Microsoft Excel. Vi vil slette de kolonner, der er helt tomme, det betyder, at hvis der ikke er data i hele kolonnen, disse data.
Lad os tage et eksempel og forstå:
Vi har data i område A1: I21, hvor kolonne A indeholder navn, kolonne B er tom, kolonne C indeholder gadeadresse, kolonne D By, kolonne E er blank, kolonne F indeholder område, kolonne G er tom, kolonne H indeholder land navn og kolonne I indeholder telefonnummer.
Vi ønsker at slette de tomme kolonner fra dataene, følg nedenstående trin og kode:
- Åbn VBE -siden for at trykke på tasten Alt+F11
- Indsæt modulet for at skrive koden
- Skriv nedenstående kode:
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). Slet End Hvis C = C - 1 Loop End Sub
Kode Forklaring:
Først har vi defineret alle variablerne. Derefter området med tomme kolonner, så har vi brugt "Gør indtil loop" til at slette de tomme kolonner. Og nu har vi defineret den tomme kolonne og slette kommando.
For at køre koden skal du trykke på tasten F5 på dit tastatur,
- Alle tomme kolonner slettes.
På denne måde kan vi slette de tomme kolonner gennem VBA i Microsoft Excel.
Hvis du kunne lide vores blogs, kan du dele den med dine venner på Facebook. Og også du kan følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre, supplere eller innovere vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet