Excel'de sabit aralıklarla belirli sayıda satır nasıl eklenir?
Bir Excel çalışma sayfasında, yerleşik **Ekle** işlevini kullanarak mevcut satırlar arasına manuel olarak boş satırlar ekleyebilirsiniz. Ancak büyük veri kümeleriyle çalışırken veya örneğin her üçüncü ya da her *n*'inci satırdan sonra ikişer boş satır eklemeniz gerektiğinde bu işlem hem zaman alıcı hem de verimsiz hale gelir. Boş satırları sabit aralıklarla otomatik olarak eklemek yalnızca **zamandan tasarruf sağlar**, aynı zamanda hataları en aza indirerek iş akışınızı daha akıcı ve sorunsuz hâle getirir. Aşağıdaki yöntemler, bu görevi hızlı ve kolayca nasıl gerçekleştireceğinizi gösterir; hem VBA kullanarak hem de kullanmadan, belirli kriterlere veya satır tekrarlarına göre boş satır ekleme çözümleri de dahil olmak üzere.
➤ VBA koduyla Boş satırlar'yi Veri Aralığı içine sabit aralıklarla belirli sayıda ekleme
➤ VBA koduyla Boş satırlar'yi Veri Aralığı içine hücre değerlerine göre belirli sayıda ekleme
➤ Kolay bir özellik ile Boş satırlar'yi Veri Aralığı içine sabit aralıklarla belirli sayıda ekleme
➤ Excel formülleriyle sabit aralıklarla belirli sayıda Boş satırlar ekleme
➤ Belirli sayılara göre VBA koduyla Satır Kopyala ve Ekle'yı birden çok kez çoğaltma
➤ Belirli sayılara göre harika bir özellik ile Satır Kopyala ve Ekle'yi birden çok kez çoğaltma
VBA koduyla sabit aralıklarla Veri Aralığı’a belirli sayıda Boş satırlar ekleme
Aşağıdaki VBA kodu, mevcut veri aralığınızda her n’inci satırdan sonra belirli sayıda boş satır eklemenizi sağlar. Bu yöntem, makrolarla çalışan ve orta ila büyük ölçekli veri kümelerini verimli şekilde yönetmek zorunda olan kullanıcılar için idealdir. Bu çözümü uygulamak için aşağıdaki adımları izleyin:
1. Excel’de ALT + F11 tuşlarına basılı tutun; böylece Microsoft Visual Basic for Applications penceresi açılacak.
2. Ekle > Modül öğesine tıklayın ve aşağıdaki kodu Modül Penceresi’ne yapıştırın.
VBA kodu: Verilere sabit aralıklarla belirli sayıda satır ekleme
Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
Next
End Sub
3. Kodu yapıştırdıktan sonra, Veri Aralığı’nı seçmenizi isteyen bir uyarı kutusunun açılması için F5 tuşuna basın.
4. Tamam’a tıklayın. Ardından istenen satır aralığını girmeniz için başka bir uyarı kutusu belirir—örneğin, her üçüncü satırdan sonra boş satırlar eklemek için 3 girin:
5.Tamam’a tıklamaya devam edin ve ardından kodun istediği zaman eklemek istediğiniz Boş satırlar sayısını girin (örneğin, iki satır eklemek için 2 girin):
6. Seçimlerinizi onayladıktan sonra, tanımladığınız aralıklarla verilerinize boş satırlar eklenecektir. Aşağıda önce/sonra karşılaştırmasına göz atın:
 |  |  |
İpuçları ve Notlar:
- Bu makro, Veri Aralığınızı esnek bir şekilde seçmenize ve hem satır aralığını hem de eklenecek boş satır sayısını belirlemenize olanak tanır.
- Satır ekleme işlemi, Geri Al komutunu hemen kullanmadığınız sürece geri alınamaz; bu nedenle çalışma sayfanızın yedeğini alın veya önce örnek bir sayfada deneyin.
Sorun Giderme: Bir hatayla karşılaşırsanız, verilerinizin filtrelenmediğinden ve seçili alana çakışan bir tablonun bulunmadığından emin olun. Beklenmeyen sonuçlar oluşursa, değişiklikleri hemen geri almak için Geri Al komutunu kullanın.
Hücre değerlerine göre VBA koduyla Veri Aralığı’e belirli sayıda Boş satırlar ekleme
Bazen iş akışınız, önceden tanımlanmış bir hücre değeri listesine göre boş satırlar eklemeyi gerektirebilir; örneğin, eşleşme kriterlerine göre her kayıttan sonra bir boşluk bırakmak gibi. Bu VBA çözümü, ekleme mantığının sabit aralıklara değil, bitişik bir sütundaki değerlere dayalı olduğu durumlar için idealdir.
✅ Ne zaman kullanılmalı:
- Verileriniz kategorilere göre düzenlenmişse (örneğin departmanlar, proje aşamaları veya satış temsilcileri) ve gruplar arasına boşluk veya boş satırlar eklemeniz gerekiyorsa bu yöntem önerilir.
- Makro, satır eklemeyi nereye yapacağını belirlemek için seçtiğiniz hücreleri kullanacağından, seçimizin doğru olduğundan emin olun.
1. Excel’de ALT + F11tuşlarına basılı tutun; bu işlem Microsoft Visual Basic for Applicationspenceresini açar.
2. Ekle > Modül öğesine tıklayın ve aşağıdaki kodu Modül Penceresi’ne yapıştırın.
VBA kodu: Sayı listesine göre belirli sayıda Boş satırlar ekleme:
Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub
3. Boş satırların ekleneceği sayı listesini (veya ilgili hücreleri) seçmenizi isteyen iletişim kutusu açıldıktan sonra F5 tuşuna basın.
4. Ardından, Tamam düğmesine tıklayın ve aşağıdaki ekran görüntülerinde gösterildiği gibi beklenen sonucu göreceksiniz:
 | |  |
Hata hatırlatıcısı: Referans listesi boş hücreler veya sayısal olmayan veri içeriyorsa, bu makroyu çalıştırmadan önce kod mantığını gözden geçirin veya verilerinizi temizleyin.
Belirli sayıda Boş satırlar'yi sabit aralıklarla Veri Aralığı içine kolay bir özellik ile ekleyin
VBA kullanmak istemiyorsanız veya daha görsel ve etkileşimli bir yöntem tercih ediyorsanız, Kutools for Excel, özel bir Boş Satır/Sütun Ekle özelliğine sahiptir. Veri aralığınız boyunca, belirlediğiniz aralıklarla boş satır veya sütun eklemek artık birkaç tıkla mümkün! Bu özellik, özellikle tekrarlı raporlama ve biçimlendirme görevlerinde üretkenliğinizi önemli ölçüde artırır.
Kutools for Excel yükledikten sonra,Kutools for Excelaşağıdaki adımları izleyin:
1. Sabit aralıklarla boş satır eklemek istediğiniz veri aralığını seçin.
2. Aşağıda gösterildiği gibi Kutools > Ekle > Boş Satır/Sütun Ekle bölümüne gidin:
3. Açılan Boş Satır & Sütun Ekle iletişim kutusunda, Ekleme Türü başlığı altında Boş satırlar seçeneğini seçin; ardından hem aralığı hem de eklenecek boş satır sayısını aşağıda gösterildiği gibi belirtin:
Not: Ayar esnektir. Her dört veri satırından sonra iki boş satır eklemeniz gerekiyorsa, aralığı 4 ve boş satır sayısını 2 olarak ayarlayın.
4. Ardından Tamam düğmesine tıklayın. Boş satırlar, belirttiğiniz aralıkta "Aralık seç" içinde aşağıda gösterildiği gibi eklenecektir:
| | |
Avantajlar: Bu çözüm kullanıcı dostudur, kodlama gerektirmez ve satır veya sütun yapılarını sıkça düzenlemesi gereken kullanıcılar için özellikle faydalıdır.
Kutools for Excel'i hemen indirin ve ücretsiz deneyin!
Excel formülleriyle sabit aralıklarla belirli sayıda Boş satırlar ekleyin
Makroları veya eklentileri kullanamıyorsanız, yine de MOD ve SATIR gibi yerleşik Excel işlevlerini ve yardımcı sütunları kullanarak boş satırları sabit aralıklarla eklemeyi başarabilirsiniz. Bu yöntem, betik kullanımının kısıtlandığı ancak temel formül kullanımıyla sıralamanın mümkün olduğu durumlarda özellikle yararlıdır.
✅ Ne zaman kullanılmalı: Makrosuz çalışma kitaplarını tercih eden, geniş uyumluluk gerektiren veya görsel ayrım amacıyla boş satırlar içeren içe/dışa aktarma iş akışları için veri hazırlayan kullanıcılar için idealdir.
⚠️ Önlemler: Bu yöntem aslında boş satır eklemez; bunun yerine, ek satırlar ve yardımcı formüller kullanarak boşlukları simüle eder. Simüle edilen bu boşlukları düzenlemek için verilerinizi sıralamanız gerekir. Küçük ila orta ölçekli veri kümeleri için ideal bir geçici çözümdür.
Adımlar:
- Diyelim ki verileriniz A2:B11 hücrelerinde. Aşağıdaki formülü girin:
Formüldeki=INT((ROW()-ROW($A$2))/(n+1))nifadesini, boş satır eklemek istediğiniz aralık sayısıyla değiştirin. Örneğin, her 3 satırdan sonra bir boş satır eklemek için şu formülü kullanın:=INT((ROW()-ROW($A$2))/3) - Grup numaralarını atamak için formülü, veri kümenizin yanına kadar aşağı doğru sürükleyin.
- Son veri satırının altına, A ve B sütunları boş olacak şekilde ek satırlar ekleyin. C sütununa (yardımcı sütun) önceden mevcut olanlarla eşleşen grup numaralarını girin; böylece bu boş satırlar doğru şekilde gruplanır.
- Tam aralığı seçin (orijinal + Satır Ekle), ardından yardımcı sütuna göre sıralayın ve gerekirse ikincil bir sıralama uygulayın. Artık boş satırlar, her n veri satırından sonra görünecektir.
🟡 Hata hatırlatıcısı:
- Boş satırlarınıza doğru grup numaralarını atadığınızdan emin olun—eşleşmeyen numaralar, bunların istenmeyen yerlerde görünmesine neden olabilir.
- Unutmayın, bu yöntem yalnızca sıralamadan sonra fiziksel satırlar ekler; bu yüzden kaydetmeden veya dışa aktarmadan önce son düzeni mutlaka onaylayın.
Özet ve ipuçları: VBA veya Kutools gibi araçlar kadar verimli olmasa da, bu formül tabanlı yöntem evrensel uyumluluğa sahiptir ve betiklere bağlı değildir. Sık olmayan ya da hafif görevler için basit ve esnek bir geçici çözüm sunar.
Belirli sayılara göre VBA koduyla Satır Kopyala ve Ekle'yi birden çok kez kopyalayın
Göreviniz yalnızca boş satırlar eklemekle kalmayıp, mevcut veri satırlarını belirli bir sayıda çoğaltıp eklemenizi gerektiriyorsa (belki ayrı bir sayı listesine göre), aşağıdaki VBA kodu pratik bir otomasyon çözümü sunar. Bu yöntem, özellikle satış siparişlerini, senaryoları veya kaynak planlaması girdilerini çoğaltmak için son derece kullanışlıdır.
 | |  |
Bunu uygulamak için aşağıdaki ayrıntılı adımları izleyin:
1. Excel'de ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayın ve ardından aşağıdaki kodu modül penceresine yapıştırın.
VBA kodu: Belirli sayılara göre Satır Kopyala ve Ekle'yi birden çok kez çoğaltma:
Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub
Önlemler: Verileri çoğaltan VBA betiklerini çalıştırmadan önce her zaman verilerinizi yedekleyin; çünkü bu betikler verileri hızla çoğaltabilir ve işlem geri alınamaz hale gelebilir.
3. Kod hazırlandıktan sonra, makroyu çalıştırmak için F5 tuşuna basın. Açılan iletişim kutusunda, her satırın kaç kez çoğaltılıp ekleneceğini belirten sayı listesini seçin.
4. Tamam düğmesine tıklayın. Belirtilen sayıda satır, her orijinal satırın altına aşağıda gösterildiği gibi kopyalanıp eklenecektir:
| | |
İpucu: Bu çözüm, veri hazırlama görevleri için uygundur; ancak ilgisiz işlemler yapıldıktan sonra VBA makrolarının geri alınamaması nedeniyle gerçek zamanlı giriş için ideal değildir.
Belirli sayılara göre harika bir özellik ile Satır Kopyala ve Ekle'yi birden çok kez çoğaltın
Çoğaltma ve satır ekleme işlemlerini sezgisel hale getirmek ve programlama becerisine gerek kalmadan yapmak isteyenler için, Kutools for Excel’in sunduğu Belirtilen Verilere Göre Satır/Sütun Kopyala veya Ekle özelliği etkili bir alternatiftir. Bu araç, hangi satır veya sütunların çoğaltılacağını ve bunun kaç kez tekrarlanacağını, yalnızca birkaç basit seçimle referans hücre değerine ya da bir listeye göre kolayca belirlemenizi sağlar.
Kutools for Excel yükledikten sonra,Kutools for Excelaşağıdaki adımları izleyin:
1. Aşağıda gösterildiği gibi Kutools > Ekle > Belirtilen Verilere Göre Satır/Sütun Kopyala veya Ekle bölümüne gidin:
2. Açılan Satır/Sütun Kopyala ve Ekle iletişim kutusunda, tür olarak Satır Kopyala ve Ekle seçeneğini işaretleyin, çoğaltmak istediğiniz Veri Aralığı’nı belirtin ve ardından çoğaltma araması için kullanılacak değer listesini aşağıda gösterildiği gibi tanımlayın:
İpucu: Karmaşık komut dosyaları kullanmadan test örnekleri oluşturmak, işlem şablonlarını çoğaltmak veya ayarları/verileri hızla kopyalamak için bunu kullanın.
4. Son olarak, aşağıda gösterildiği gibi çıktıyı oluşturmak için Tamam veya Uygula düğmesine tıklayın:
| | |
Not: Beklenen sonuçları elde etmek için, değer listenizin verilerinizle doğru şekilde hizalandığından emin olun.
Kutools for Excel'i hemen indirin ve ücretsiz deneyin!
İlgili diğer makaleler:
- Bir Satırı Belirtilen Sayıda Kopyala ve Ekle Veya Satırı X Kez Çoğalt
- Günlük工作中, bir satırı veya her satırı kopyalayıp mevcut veri satırının altına birden çok kez eklemeyi denediniz mi? Örneğin, aşağıdaki ekran görüntüsünde gösterildiği gibi, bir hücre aralığım var ve her satırı kopyalayıp hemen altına 3 kez yapıştırmak istiyorum. Excel’de bu işi nasıl halledebilirsiniz?
- Excel'de Değer Değiştiğinde Boş satırlar Ekle
- Diyelim ki bir veri aralığınız var ve aşağıdaki ekran görüntülerinde gösterildiği gibi, bir sütundaki ardışık aynı değerleri ayırmak için değer değiştiğinde verilerin arasına boş satırlar eklemek istiyorsunuz. Bu makalede, bu sorunu çözmenize yardımcı olacak bazı ipuçlarını paylaşacağız.
- Excel'de Belirli Bir Metinden Sonra Bir Boş satır Ekle
- Aşağıdaki ekran görüntüsünde gösterildiği gibi, belirli bir metinden sonra boş satırlar eklemek istiyorsanız, bunu tek tek elle yapmak zorunda kalmadan hızlı ve kolay bir şekilde nasıl gerçekleştirebilirsiniz?
- Kriterlere Göre Birden Fazla Çalışma Sayfasından Satırları Yeni Bir Sayfaya Kopyala
- Aşağıdaki ekran görüntüsünde gösterildiği gibi, aynı biçimlendirmeye sahip üç çalışma sayfası içeren bir çalışma kitabınız olduğunu varsayalım. Şimdi, C sütununda “Tamamlandı” metnini içeren tüm satırları bu çalışma sayfalarından yeni bir çalışma sayfasına kopyalamak istiyorsunuz. Bu işlemi tek tek elle kopyalayıp yapıştırmadan hızlı ve kolay bir şekilde nasıl gerçekleştirebilirsiniz?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar