In dit artikel leren we hoe u lege kolommen kunt verwijderen via VBA in Microsoft Excel. We zullen de kolommen verwijderen die volledig leeg zijn, dit betekent dat als er geen gegevens in de hele kolom zijn die gegevens.
Laten we een voorbeeld nemen en begrijpen:
We hebben gegevens in het bereik A1:I21, waarbij kolom A Naam bevat, kolom B leeg is, kolom C Straatadres bevat, kolom D Stad, kolom E leeg is, kolom F regio bevat, kolom G leeg is, kolom H land bevat naam, en kolom I bevat telefoonnummer.
We willen de lege kolommen uit de gegevens verwijderen, volg de onderstaande stappen en code:
- Open de VBE-pagina om op de toets Alt+F11 . te drukken
- Plaats de module om de code te schrijven
- Schrijf de onderstaande code:
Sub Delete_Columns() Dim C As Integer C = ActiveSheet.Cells.SpecialCells(xlLastCell).Column Do Until C = 0 If WorksheetFunction.CountA(Columns(C)) = 0 Then Columns(C).Delete End If C = C - 1 lus einde sub
Code Verklaring:
Eerst hebben we alle variabelen gedefinieerd. Dan het bereik van lege kolommen, dan hebben we "Doen tot lus" gebruikt om de lege kolommen te verwijderen. En nu hebben we de lege kolom en de verwijderopdracht gedefinieerd.
Om de code uit te voeren, drukt u op de toets F5 op uw toetsenbord,
- Alle lege kolommen worden verwijderd.
Op deze manier kunnen we de lege kolommen verwijderen via VBA in Microsoft Excel.
Als je onze blogs leuk vond, deel deze dan met je vrienden op Facebook. En je kunt ons ook volgen op Twitter en Facebook.
We horen graag van je, laat ons weten hoe we ons werk kunnen verbeteren, aanvullen of vernieuwen en het voor jou beter kunnen maken. Schrijf ons op de e-mailsite