I den här artikeln lär vi oss hur man tar bort tomma kolumner via VBA i Microsoft Excel. Vi kommer att radera kolumnerna som är helt tomma, det betyder att om det inte finns någon data i hela kolumnen som data.
Låt oss ta ett exempel och förstå:
Vi har data i intervall A1: I21, där kolumn A innehåller namn, kolumn B är tom, kolumn C innehåller gatuadress, kolumn D stad, kolumn E är tom, kolumn F innehåller region, kolumn G är tom, kolumn H innehåller land namn och kolumn I innehåller telefonnummer.
Vi vill ta bort de tomma kolumnerna från data, följ nedanstående steg och kod:
- Öppna VBE -sidan för att trycka på tangenten Alt+F11
- Sätt in modulen för att skriva koden
- Skriv koden nedan:
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). Radera Slut Om C = C - 1 Loop End Sub
Kodförklaring:
Först har vi definierat alla variabler. Sedan intervallet med tomma kolumner, sedan har vi använt "Gör tills slinga" för att ta bort de tomma kolumnerna. Och nu har vi definierat den tomma kolumnen och ta bort kommandot.
För att köra koden, tryck på F5 på tangentbordet,
- Alla tomma kolumner raderas.
På detta sätt kan vi ta bort de tomma kolumnerna via VBA i Microsoft Excel.
Om du gillade våra bloggar, dela den med dina vänner på Facebook. Och du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra, komplettera eller förnya vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen