Kaynak ikonu

Excel'de Boş Satır Ekleme - Makro

YoRuMSuZ

Biz işimize bakalım...
Excel'de Boş Satır Ekleme - Makro - Excel'de Boş Satır Ekleme - Makro

Excel'de sütunlardaki dolu satırlar arasına boş satırlar eklemek istiyorsanız alttaki makro kodunu kullanabilirsiniz.

Kod:
Sub Bos_Satir_Ekle()
For i = 2 To 300 Step 2
    Rows(i).Select
    Selection.Insert Shift:=xlDown
    Next i
    [A1].Select
End Sub

Bu işlemin tersi için, yani sutundaki boş satırları silmek için alttaki linki inceleyin.

Excelde Boş Satır Silme

Açıklamanın devamı için tıklayınız...
 
Son düzenleme:
hocam eline saglık cok isime yaradı yalnız bi sorum daha olacak ekledigimiz satırların yüksekliginide belirtme sansımız varmıdır formulle
 
Alternatif;
PHP:
Sub Emre()
Dim a%, c%
[A1].Select: a = 2
   While ActiveCell.Value <> ""
      c = c + 2
      ActiveSheet.Rows(c).Insert Shift:=xlDown
      ActiveCell.Offset(a, 0).Select
   Wend
End Sub

2 satır eklemek için;
PHP:
Sub İki_Satir_Ekle() Dim a As Byte, sat As Byte[A2].Select
a = 3: sat = 2
While ActiveCell.Value <>"" ActiveSheet.Rows(ActiveCell.Row &":"& sat + ActiveCell.Row - 1).Insert Shift:=xlDown
ActiveCell.Offset(a, 0).Select
Wend
a = Empty: sat = Empty
End Sub

3 satır eklemek için;
PHP:
Sub Üç_Satir_Ekle() Dim a As Byte, sat As Byte[A2].Select
a = 4: sat = 3
While ActiveCell.Value <>"" ActiveSheet.Rows(ActiveCell.Row &":"& sat + ActiveCell.Row - 1).Insert Shift:=xlDown
ActiveCell.Offset(a, 0).Select
Wend
a = Empty: sat = Empty
End Sub
 
Top