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.
veya
Makroyu çalıştırdığınızda uzun listenizdeki tüm satırların arasında boş satır oluşacaktır.
Bu makronun tersi işlevi olan excelde boş satırları silme makrosuna aşağıdaki linkten ulaşabilirsiniz.
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
Kod:
Sub SatirEkle()
For x = [A65336].End(3).Row To 2 Step -1
Rows(x).Insert shift:=xlDown
Next x
End SubMakroyu çalıştırdığınızda uzun listenizdeki tüm satırların arasında boş satır oluşacaktır.
Bu makronun tersi işlevi olan excelde boş satırları silme makrosuna aşağıdaki linkten ulaşabilirsiniz.
Bağlantıyı görüntüleme izniniz yok, görüntülemek için:
Giriş yapın veya üye olun.