Excel: Eksempel Makro for å sette inn flere rader

Microsoft Excel vert for en rekke funksjoner som gjør at brukerne kan lage regneark som er skreddersydd for deres behov. Blant disse funksjonalitetene er muligheten til å lage en makro, som gjør det mulig for brukere å lage beregninger og data manipulasjoner uten å gå gjennom repeterende bevegelser.

Sett inn flere rader i Excel-regneark

Excel oppgave

Nedenfor tipset lar deg sette inn flere rader mellom eksisterende rader i et Excel-regneark. Denne makroen gjør at du kan sette inn et sett antall tomme rader i regnearket ditt og kan endres etter dine behov.

Før makro:

 TITLE1
Tittel 2
TITLE3
TITLE4 

Etter makro:

TITLE1
Tittel 2
TITLE3
TITLE4 

Eksempel Makro

Her er makrokoden som trengs for å utføre oppgaven ovenfor:

 Subtest ()
Dim j så lenge, r som rekkevidde
j = InputBox ("skriv inn antall rader som skal innsettes")
Sett r = Range ("A2")
Gjøre
Range (r.Offset (1, 0), r.Offset (j, 0)). TotalRow.Insert
Sett r = Cells (r.Row + j + 1, 1)
MsgBox r.Address
Hvis r.Offset (1, 0) = "" Deretter avslutter du
Loop
Slutt Sub