Több üres sor beszúrása Excelbe

Makró létrehozása a Microsoft Excel programban lehetővé teszi a felhasználók számára, hogy automatizálják az ismétlődő és kiszámítható feladatokat a programban, gyakran időt takarítanak meg.

Üres sorok beillesztése az adatbevitel között

Ha olyan makrót szeretne létrehozni, amely 2 üres sor beillesztése egy meglévő táblázatba minden 2 adatbevitel után, rendelkezésre áll egy olyan makró, amely segíthet abban. A végeredmény így néz ki:

Alapértelmezett elrendezés:

 Title1
Title2
TITLE3
TITLE4 

Makró után:

 Title1
Title2
TITLE3
TITLE4 

Több üres sor behelyezése a meglévő adatok közé

A következő makró használata a fenti képen látható eredményt kapja:

 Sub teszt ()
Dim j Olyan hosszú, r mint tartomány
j = InputBox ("írja be a beillesztendő sorok számát")
R = tartomány ("A2") beállítása
csinál
Tartomány (r.Offset (1, 0), r.Offset (j, 0)) EntireRow.Insert
R = Cellák beállítása (r.Row + j + 1, 1)
'MsgBox r.Address (a sor elején lévő aposztróf ez a vonal nem használható)
Ha r.Offset (1, 0) = "" majd kilép
Hurok
Vége vége