Excel'deki her satır arasında hızlı bir şekilde boşluk nasıl eklenir?

Excel'de, etkin satırın üstünde bir satır seçmek için sağ tıklama menüsünü kullanabilirsiniz, ancak aşağıda gösterilen ekran görüntüsü gibi her satıra boş satırları nasıl ekleyeceğinizi biliyor musunuz? Burada, bu işi hızlı bir şekilde çözmek için bazı püf noktaları tanıtıyorum.

Sırala işlevine göre her satır arasına boş satırlar ekle

Her satır arasına VBA koduyla boş satırlar ekleyin

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

---

Sırala işlevine göre her satır arasına boş satırlar ekle

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

1. Bitişik sayıya, satır numarasıyla eşleşecek bir dizi sayı girin.

2. Seri numaralarını kopyalayın ve son numarayı takip eden 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. patlamada Sıralama Uyarısı diyalog, tut Seçim seçeneğini genişletin kontrol edildi, tıkla Sırala.

Artık her satır arasına boşluklar eklenmiştir. Seri numarası sütununu daha sonra kaldırabilirsiniz.

---

Her satır arasına VBA koduyla boş satırlar ekleyin

Makro koduna aşina iseniz, işte size yardımcı olabilecek bir kod da.

1. Basın Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

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

VAB: Satırlar arasında boşluk ekles

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. Basın F5 kodu çalıştırmak için tuşuna basarsanız, çalışma verilerini seçmenizi hatırlatmak için bir iletişim kutusu açılır.

4. tık OK. Şimdi boşluklar seçilen satırlar arasına eklendi.

---

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

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'S Insert Blank Rows & Columns ihtiyacınız olan satır aralığını ve boş satır sayısını belirtebileceğiniz yardımcı program.

Kurduktan sonra Kutools for Excel, lütfen aşağıdaki işlemleri yapın:（Şimdi Excel için Kutools'u Ücretsiz İndirin!)

1. Boş satırlar veya sütunlar eklemek istediğiniz veri aralığını seçin, Kutools > Insert > Insert Blank Rows & Columns.

2. içinde Insert Blank Rows & Columns iletişim, kontrol et Blank rows or Blank columns ihtiyacınız olduğu gibi ve seçeneklerini belirtin Interval of ve Rows.

3. tık Ok.

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

Bahşiş: bu yardımcı program geri almayı destekler Ctrl + Z.

  Belirli aralıklarla boş satırlar veya sütunlar ekleyin