Excel'de her satır arasında hızlıca boşluk nasıl eklenir?

Excel'de, etkin satırın üstündeki bir satırı seçmek için sağ tıklama menüsünü kullanabilirsiniz, ancak aşağıdaki ekran görüntüsünde gösterildiği gibi her satır arasına boş satırlar eklemeyi biliyor musunuz? Burada bu işi hızlıca çözmek için bazı ipuçlarını tanıtacağım.

Sırala fonksiyonu ile her satır arasına boş satırlar ekleme

Kutools for Excel ile her satır/sütun arasına boş satırlar/sütunlar ekleme

VBA kodu ile her satır arasına boş satırlar ekleme

Sırala fonksiyonu ile her satır arasına boş satırlar ekleme

Her satır arasına boş satırlar eklemek için, önce iki kez bir dizi numara doldurabilir, ardından numaraları sıralayabilirsiniz.

1. Bitişik sayıda, satır numarasıyla eşleşecek şekilde bir dizi numara doldurun.

2. Seri numaralarını kopyalayın ve son numarayı izleyen hücreye yapıştırın.

2. Tüm seri numaralarını seçin, tıklayın Veri > En küçükten en büyüğe sırala.

3. Açılan Sıralama Uyarısı diyalog kutusunda Seçimi genişlet seçeneğini işaretli tutun, tıklayın Sırala.

Şimdi boşluklar her satır arasına eklenmiştir. Seri numara sütununu daha sonra kaldırabilirsiniz.

Kutools for Excel ile her satır/sütun arasına boş satırlar/sütunlar ekleme

Eğer her satır veya sütun arasına hızlı ve kolay bir şekilde boş satırlar veya sütunlar eklemek istiyorsanız, Kutools for Excel'in Boş Satır ve Sütun Ekle yardımcı programını kullanabilirsiniz; bu sayede ihtiyaçlarınıza göre satır aralığını ve boş satır sayısını belirleyebilirsiniz.

Kutools for Excel'i yükledikten sonra lütfen aşağıdaki adımları izleyin:

1. Boş satırlar veya sütunlar eklemek istediğiniz veri aralığını seçin, tıklayın Kutools > Ekle > Boş Satır ve Sütun Ekle.

2. Boş Satır ve Sütun Ekle diyalog kutusunda işaretleyin Boş satırlar veya Boş sütunlar ihtiyaçlarınıza göre ve Aralık ve Satırlar.

3. Tamam'a tıklayın.

Her satır arasına boş satırlar ekleme	Her sütun arasına boş sütun ekleme

İpucu: Bu yardımcı program Ctrl + Z ile geri almayı destekler.

VBA kodu ile her satır arasına boş satırlar ekleme

Eğer makro koduna aşina iseniz, işinize yarayabilecek bir kod da burada bulunmaktadır.

1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Ekle > Modül'e tıklayın, ardından aşağıdaki kodu modüle kopyalayıp yapıştırın.

VAB: Satırlar arasına boşluk ekleme

Sub RowsInsertInSelectCells()
'UpdatebyExtendoffice20180801
Dim xWS As Worksheet
Dim xCR, xR, xCC, xC, xFC, xFR As Long
Dim xFNum As Integer
Dim xRg, xCRg As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 0 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xWS = ActiveWorkbook.ActiveSheet
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Count > 0 Then
        xCR = xRg.Rows.Count
        xCC = xRg.Columns.Count
        xR = xRg.Row
        xC = xRg.Column
   Application.ScreenUpdating = False
    For xFC = 0 To xCC - 1
        For xFR = xCR To 1 Step -1
            xWS.Cells(xR + xFR, xC + xFC).Insert
        Next
    Next xFC
    Application.ScreenUpdating = True
    End If

End Sub

3. Kodu çalıştırmak için F5 tuşuna basın, çalışan verileri seçmenizi hatırlatmak için bir diyalog penceresi açılır.

4. Tıklayın Tamam. Şimdi boşluklar seçilen satırlar arasına eklenmiştir.

Gösteri: Belirli aralıklarla boş satır veya sütun ekleme