Excel - makro za vstavljanje praznih vrstic

• Težava
• Rešitev

Težava

Poskušate ustvariti makro, ki bo po vsakem vnosu vstavil niz praznih vrstic v obstoječo preglednico. Količina potrebnih vrstic bo enaka za vsak vnos preglednice, vendar bo treba spremeniti vsakič, ko jo uporabite.

Tukaj je vzorec ...

Trenutno:

 Naslov1
Naslov2
Naslov3
Naslov4 

Po uporabi makra:

 Naslov1
Naslov2
Naslov3
Naslov4

Znesek prazne vrstice je lahko od 20 do 40.

Rešitev

A1 ima razdelke.

Nato poskusite ta makro

ohranite svojo izvorno datoteko varno nekje

najprej opravite testiranje makra v poskusnih podatkih, ki ste jih poslali

 Sub test ()
Dim j Kot dolga, r As Range
j = InputBox ("vnesite število vrstic, ki jih je treba naložiti")
Nastavi r = obseg ("A2")
Ali
Razpon (r.Offset (1, 0), r.Offset (j, 0)). EntireRow.Insert
Nastavi r = Celice (r.Row + j + 1, 1)
MsgBox r.Address
Če je r.Offset (1, 0) = "" Nato izstopite
Loop
End Sub

Hvala za venkat1926 za ta tip.