Hoe meerdere kolommen in te voegen met vba

U kunt de volgende syntaxis gebruiken om meerdere kolommen in Excel in te voegen met behulp van VBA:

 Sub InsertMultipleColumns()
Worksheets(" Sheet1 ").Range(" B:D ").EntireColumn.Insert
End Sub

Deze specifieke macro voegt drie lege kolommen in het bereik D tot F van het blad met de naam Blad1 in en duwt alle bestaande kolommen naar rechts.

Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: hoe u meerdere kolommen kunt invoegen met VBA

Stel dat we de volgende dataset hebben met informatie over verschillende basketbalspelers:

Stel dat we drie lege kolommen willen invoegen, beginnend met kolom B.

We kunnen hiervoor de volgende macro maken:

 Sub InsertMultipleColumns()
Worksheets(" Sheet1 ").Range(" B:D ").EntireColumn.Insert
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Merk op dat er drie lege kolommen zijn ingevoegd in kolomlocaties B, C en D van dit werkblad met de naam Blad1 .

De waarden die voorheen in de kolommen B, C en D stonden, zijn simpelweg naar rechts geschoven.

Opmerking : u kunt hier de volledige documentatie voor de VBA Insert- functie vinden.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: hoe u de laatst gebruikte regel kunt vinden
VBA: het aantal rijen binnen bereik tellen
VBA: het aantal gebruikte kolommen tellen