Excel: Sample Makro til at indsætte flere rækker

Microsoft Excel er vært for en række funktioner, der gør det muligt for brugerne at oprette regneark fuldstændigt skræddersyet til deres behov. Blandt disse funktionaliteter er evnen til at skabe en makro, som giver brugerne mulighed for at lave beregninger og data manipulationer uden at gennemgå gentagne bevægelser.

Indsæt flere rækker i Excel-regneark

Excel opgave

Nedenstående tip vil gøre det muligt for dig at indsætte flere rækker mellem eksisterende rækker i et Excel-regneark. Denne makro gør det muligt for dig at indsætte et angivet antal tomme rækker i dit regneark og kan ændres efter dine behov.

Før makro:

 Titel 1
Titel 2
TITLE3
TITLE4 

Efter makro:

Titel 1
Titel 2
TITLE3
TITLE4 

Eksempel Makro

Her er den makrokode, der er nødvendig for at udføre ovenstående opgave:

 Subtest ()
Dim j Så længe, ​​r Som rækkevidde
j = InputBox ("skriv antallet af rækker der skal indsættes")
Indstil r = Range ("A2")
gøre
Range (r.Offset (1, 0), r.Offset (j, 0)) .HeleRow.Insert
Indstil r = celler (r.Row + j + 1, 1)
MsgBox r.Address
Hvis r.Offset (1, 0) = "" Afslut derefter Do
Loop
Slutdel