...Dolu satır arasına boş satır ekleme...

[Nadir]

A ve B sütununu kapsayan veriler 1000 satır (A1000'e kadar) kadardır. Bu satırların arasında boşluk yoktur. Her bir satırın arasına birer boş satır eklemek için makro kodu çok pratik olacaktır. Yoksa tek tek satır eklemek çok zaman alacak...

 

[Haluk]

Nadir bey, sizi sevgililer gününde üzmeyelim... :mrgreen:....

Sub Test()
    Dim NoA As Long, i As Long
    NoA = Cells(65536, 1).End(xlUp).Row
    For i = NoA To 2 Step -1
        Rows(i).Insert
    Next
End Sub

 

[Nadir]

Çok teşekkürler Haluk bey... Böyle bir günü hiç üzülmeden tamamlıyacağız.

Devamla;
Eklenen her boş satıra ardışık sıra numarası da verebilirmiyiz. (1'den 1000'e kadar) İlk sayı B3'ten başlamak üzere...(B3-B5-B7...B1000) Ve de satır italik ve kalın olarak biçimlenecek...

 

[korkoryan]

Merhaba Hocam
Peki tek bir boş satır değil de her dolu satırın altına örnek 47 ade boş satır eklesek kod nasıl değişirdi?

 

[YUSUF44]

Aşağıdaki gibi olur:

Sub Test()
    Dim NoA As Long, i As Long
    NoA = Cells(65536, 1).End(xlUp).Row
    For i = NoA To 2 Step -1
        Rows(i + 1 & ":" & i + 47).Insert
    Next
End Sub