Seçili Her Satırdan Sonra Bir Satır Ekleme

Seçili Her Satırdan Sonra Bir Satır Ekleme

Seçili Her Satırdan Sonra Bir Satır Ekleme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.

Hazır Kod​

VBA:
Sub InsertAlternateRows()
Dim rng As Range
Dim CountRow As Integer
Dim i As Integer
Set rng = Selection
CountRow = rng.EntireRow.Count
For i = 1 To CountRow
    ActiveCell.EntireRow.Insert
    ActiveCell.Offset(2, 0).Select
Next i
End Sub

Açıklama​

Bu kod seçtiğiniz satırların her birinin üzerine birer satır ekleme işlevini hızlı bir şekilde yerine getirir. Eğer binlerce satırlık verilerinizde sırayla satır ekleme ihtiyacınız varsa, bu hazır makro kodunu çalıştırın ve keyfini çıkarın.

Faydalanılması temennisiyle
 
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst