Excel - makronaredba za umetanje praznih redaka
- Problem
- Riješenje
Problem
Pokušavate stvoriti makronaredbu koja će umetnuti niz praznih redaka u postojeću proračunsku tablicu nakon svakog unosa. Količina potrebnih redaka bit će jednaka za svaki unos proračunske tablice, ali će se morati mijenjati svaki put kada se koristi.Evo primjera ...
trenutno:
TITLE1Naslov 2
Title3
Title4
Nakon korištenja makronaredbe:
TITLE1Naslov 2
Title3
Title4
Iznos praznog retka može biti 20 - 40.
Riješenje
A1 ima naslove.Zatim isprobajte ovu makronaredbu
čuvajte izvornu datoteku na sigurnom mjestu
prvo testiranje makronaredbe u eksperimentalnim podacima koje ste poslali
Sub test ()Dim J Kako dugo, r As Range
j = InputBox ("upišite broj redaka koji će se unijeti")
Postavi r = Raspon ("A2")
Čini
Raspon (r.Offset (1, 0), r.Offset (j, 0)). EntireRow.Insert
Postavi r = Ćelije (r.Row + j + 1, 1)
MsgBox r.Address
Ako je r.Offset (1, 0) = "" Zatim izlazite
Petlja
Kraj pod
Zahvaljujući venkat1926 za ovaj savjet.