Kaynak ikonu

Excelde Dolu Satırlar Arasına Boş Satır Ekleme

YoRuMSuZ

Biz işimize bakalım...
Excelde Dolu Satırlar Arasına Boş Satır Ekleme - Excelde Dolu Satırlar Arasına Boş Satır Ekleme

Benim olduğu gibi sizin de uzun bir listenin aralarına birer veya daha çok satır eklemeniz lazım olabilir. İşt bu durumda küçük bir makro kodu imdadımıza yetişiyor.

Dolu satırlar arasına boş satır eklemek isterseniz aşağıdaki makrolardan birini kullanabilirsiniz.

Kod:
Sub SatirEkle()
    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
veya
Kod:
Sub SatirEkle()
For x = [A65336].End(3).Row To 2...

Açıklamanın devamı için tıklayınız...
 
Son düzenleme:

YoRuMSuZ

Biz işimize bakalım...
Dolu satırların arasına istediğiniz sayı kadar boş satır eklemek için.

Örnek olarak dolu satırların arasına 3 boş satır ekleyelim...
Kod:
Sub BosSatir()
Dim a As Integer
For a = Range("A65536").End(xlUp).Row To 1 Step -1
    If Cells(a, 1) <> "" Then
        Rows(a + 1 & ":" & a + 3).Insert 'Kaç boş stır eklenecek'.
    End If
Next a
End Sub
Eğer ilk satır başlık ise Row To 2 Step -1 yazın. Şöyle ki.
Kod:
Sub BosSatir()
Dim a As Integer
For a = Range("A65536").End(xlUp).Row To 2 Step -1
    If Cells(a, 1) <> "" Then
        Rows(a + 1 & ":" & a + 3).Insert 'Kaç boş stır eklenecek'.
    End If
Next a
End Sub
 
Top