Excel - Boş satır eklemek için bir makro

• Konu
• Çözüm

Konu

Her girişten sonra mevcut bir e-tabloya bir dizi boş satır ekleyecek bir makro oluşturmaya çalışıyorsunuz. Gerekli satır miktarı, elektronik tablonun her girişi için aynı olacaktır, ancak her kullanışında değiştirilmesi gerekecektir.

İşte bir örnek ...

Şu anda:

 TITLE1
Başlık2
TITLE3
TITLE4 

Makroyu kullandıktan sonra:

 TITLE1
Başlık2
TITLE3
TITLE4

Boş satır miktarı 20 - 40 arasında değişebilir.

Çözüm

A1'in başlıkları var.

O zaman bu makroyu dene

orijinal dosyanızı güvenli bir yerde saklayın

öncelikle gönderdiğiniz deneysel verilerde makro testini yapın

 Alt test ()
Dim j Uzun, r Aralık
j = InputBox ("eklenecek satır sayısını yazın")
R = Menzil Ayarla ("A2")
Yap
Aralık (r.Offset (1, 0), r.Offset (j, 0)).
Set r = Hücreler (r.Row + j + 1, 1)
MsgBox r.Adres
Eğer r.Offset (1, 0) = "" Sonra Çık
döngü
Son Alt

Bu ipucu için venkat1926'ya teşekkür ederiz.