Excel: voorbeeldmacro om meerdere rijen in te voegen

Microsoft Excel biedt een aantal functies waarmee gebruikers werkbladen kunnen maken die volledig zijn afgestemd op hun behoeften. Een van deze functionaliteiten is de mogelijkheid om een ​​macro te maken, waarmee gebruikers berekeningen en gegevensmanipulaties kunnen uitvoeren zonder door herhaalde bewegingen te gaan.

Voeg meerdere rijen in Excel-werkblad in

Excel-taak

Met de onderstaande tip kunt u meerdere rijen invoegen tussen bestaande rijen in een Excel-spreadsheet. Met deze macro kunt u een bepaald aantal lege rijen invoegen in uw spreadsheet en deze aanpassen aan uw behoeften.

Voor Macro:

 Title1
Title2
Title3
TITLE4 

Na Macro:

Title1
Title2
Title3
TITLE4 

Voorbeeldmacro

Hier is de macrocode die nodig is om de bovenstaande taak uit te voeren:

 Sub test ()
Dim j As Long, r As Range
j = InputBox ("typ het aantal rijen dat moet worden ingesloten")
Set r = Range ("A2")
Do
Bereik (r.Offset (1, 0), r.Offset (j, 0)) EntireRow.Insert
Stel r = cellen in (r.Row + j + 1, 1)
MsgBox r.Address
Als r.Offset (1, 0) = "" Sluit vervolgens Do
Lus
End Sub