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 boş satırlar ekleyebilirsiniz. Ancak, büyük bir veri kümesiyle çalışırken veya her üçüncü veya n'inci satırdan sonra düzenli olarak, örneğin iki boş satır eklemek gerektiğinde bu görevi manuel olarak gerçekleştirmek zaman alıcı ve verimsiz hale gelir. Sabit aralıklarla boş satır ekleme işlemini otomatikleştirme, sadece zaman kazandırmakla kalmaz, aynı zamanda hataları da en aza indirir ve iş akışınızı daha akıcı hale getirir. Aşağıdaki yöntemler, belirli ölçütler veya tekrar eden satırlara göre boş satır ekleme işlemlerini içeren çözümlerle birlikte bu görevi hızlı ve kolay bir şekilde nasıl gerçekleştireceğinizi gösterecektir; hem VBA ile hem de VBA olmadan.
➤ Belirli sayıda boş satırı VBA kodu ile sabit aralıklarla veri aralığına ekleyin
➤ Belirli sayıda boş satırı VBA kodu ile hücre değerlerine göre veri aralığına ekleyin
➤ Belirli sayıda boş satırı pratik bir özellik ile sabit aralıklarla veri aralığına ekleyin
➤ Belirli sayıda boş satırı Excel formülleri ile sabit aralıklarla ekleyin
➤ Belirli sayılar temelinde satırları VBA kodu ile birden çok kez kopyalayıp ekleyin
➤ Belirli sayılar temelinde satırları harika bir özellik ile birden çok kez kopyalayıp ekleyin
Belirli sayıda boş satırı VBA kodu ile sabit aralıklarla veri aralığına ekleyin
Aşağıdaki VBA kodu, mevcut veri aralığınız içinde her n'inci satırdan sonra belirli sayıda boş satır eklemenize yardımcı olabilir. Bu yaklaşım, orta ve büyük boyutlu veri setleriyle etkili bir şekilde çalışması gereken ve makrolara hakim olan kullanıcılar için uygundur. Lütfen bu çözüm için aşağıdaki adımları izleyin:
1. Excel'de ALT + F11 tuşlarını basılı tutun, bu Microsoft Visual Basic for Applications penceresini açar.
2. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
VBA kodu: Belirli sayıda satırı sabit aralıklarla veriye 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. Bu kodu yapıştırdıktan sonra, çalıştırması için F5'e basın. Açılan bir uyarı kutusu, boş satırlar eklemek istediğiniz veri aralığını seçmenizi hatırlatacaktır, aşağıda gösterildiği gibi:
4. Tamam'a tıklayın. Başka bir uyarı kutusu belirecek ve burada istenen satır aralığını girmelisiniz - örneğin, 3 girerek her üçüncü satırdan sonra boş satırlar ekleyecektir:
5. Tamam'a tıklayarak devam edin ve ardından kodun sizden istediği zaman kaç boş satır eklemek istediğinizi girin (örneğin, 2 girerek iki satır ekleyin):
6. Seçimlerinizi onayladıktan sonra, boş satırlar tanımlanan aralıklarla verilerinize eklenecektir. Aşağıdaki önce ve sonra karşılaştırmasına bakın:
 |  |  |
İpuçları & Notlar:
- Bu makro, veri aralığınızı esnek bir şekilde seçmenizi ve hem satır aralığını hem de eklenecek boş satır sayısını belirtmenizi sağlar.
- Satır ekleme işlemi, Geri Al komutunu hemen kullanmadığınız sürece geri alınamaz, bu yüzden çalışma sayfanızı yedekleyin veya bunu önce bir örnek sayfada deneyin.
Sorun Giderme: Bir hata ile karşılaşırsanız, verilerinizin filtrelendiğinden veya seçilen alanı kaplayan tablolar olmadığından emin olun. Beklenmedik sonuçlar oluşursa, değişiklikleri geri almak için hemen Geri Al kullanın.
Belirli sayıda boş satırı hücre değerlerine göre VBA kodu ile veri aralığına ekleyin
Bazen iş akışınız, önceden tanımlanmış bir hücre değerleri listesine göre boş satırlar eklemeyi gerektirebilir; örneğin, eşleşen kriterlere göre her kayıt sonrasında boşluklar eklemek gibi. Bu VBA çözümü, ekleme mantığının sabit aralıklara değil, bitişik bir sütundaki değerlere dayandığı 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ında boşluk veya boş satırlar eklemeniz gerekiyorsa önerilir.
- Seçiminizin doğru olduğundan emin olun, çünkü makro seçili hücreleri satırları nereye ekleyeceğini belirlemek için kullanacaktır.
1. Excel'de ALT + F11 tuşlarını basılı tutarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
VBA kodu: Sayılar listesine göre belirli sayıda boş satır 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. Yapıştırdıktan sonra, kodu çalıştırmak için F5'e basın. Açılan iletişim kutusunda, boş satırların ekleneceği sayılar listesini (veya ilgili hücreleri) seçin.
4. Ardından Tamam'a tıklayın ve beklenen sonucu aşağıdaki ekran görüntülerinde gösterildiği gibi göreceksiniz:
 | |  |
Hata uyarısı: Referans listesi boş hücreler veya sayısal olmayan veriler içeriyorsa, kod mantığını kontrol edin veya bu makroyu çalıştırmadan önce verilerinizi temizleyin.
Pratik bir özellik ile belirli sayıda boş satırı sabit aralıklarla veri aralığına ekleyin
VBA kullanmayı tercih etmiyorsanız veya daha görsel ve etkileşimli bir yönteme ihtiyacınız varsa, Kutools for Excel, özel bir Boş Satır ve Sütun Ekle özelliği sunar. Basit tıklamalarla, özellikle tekrarlayan raporlama veya biçimlendirme görevlerinde üretkenliği önemli ölçüde artıran, veri aralığınız boyunca herhangi bir ayarlı aralıkta boş satır veya sütun ekleyebilirsiniz.
Kutools for Excel'i yükledikten sonra şu adımları izleyin:
1. Düzenli aralıklarla boş satırlar eklemeniz gereken veri aralığını seçin.
2. Aşağıda gösterildiği gibi Kutools > Ekle > Boş Satır ve Sütun Ekle'ye gidin:
3. Boş Satır ve Sütun Ekle iletişim kutusunda, Ekleme Türü altında Boş satırlar'ı seçin, ardından aralığı ve eklenecek boş satır sayısını belirtin, aşağıdaki gibi gösterilmiştir:
Not: Ayar esnektir. Her dört veri satırından sonra iki boş satır eklemek istiyorsanız, 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ıklarla seçili bölgeye eklenecektir, aşağıdaki gibi gösterilmiştir:
| | |
Avantajlar: Bu çözüm kullanıcı dostudur, kodlamaya ihtiyaç duymaz ve özellikle satır veya sütun yapılarını sıkça ayarlamanız gerekenler için faydalıdır.
Kutools for Excel'i Şimdi İndirin ve Ücretsiz Deneyin!
Excel formülleri ile belirli sayıda boş satırı sabit aralıklarla ekleyin
Makro veya eklenti kullanamıyorsanız, MOD ve SATIR gibi yerleşik Excel işlevlerini ve yardımcı sütunları kullanarak sabit aralıklarla boş satırlar eklemek için hedefinize ulaşabilirsiniz. Bu yöntem, betik kullanımının kısıtlandığı ancak temel formül kullanımı ve sıralamanın mümkün olduğu durumlarda özellikle yararlıdır.
✅ Ne zaman kullanılmalı: Çalışma kitaplarını makrosuz tutmak isteyen, geniş uyumluluk gerektiren veya veri ayrımı için boş satırlar gerektiren içe/dışa aktarma iş akışlarına hazırlama ihtiyacı olan kullanıcılar için idealdir.
⚠️ Önlemler: Bu yöntem aslında boş satırlar eklemiyor, bunun yerine ek satırlar ve yardımcı formüller kullanarak simüle ediyor. Daha sonra verileri sıralamanız gerekecek. Bu, küçük-orta ölçekli veri setleri için uygun bir geçici çözümdür.
Adımlar:
- Diyelim ki verileriniz şu hücrelerde: A2:B11. Yeni bir yardımcı sütunda (örneğin, C2'den başlayan sütun C), aşağıdaki formülü girin:
Değiştirin=INT((ROW()-ROW($A$2))/(n+1))nboş bir satır eklemek istediğiniz aralıkla. Örneğin, her 3 satırda bir boş satır eklemek için, şu şekilde kullanın:=INT((ROW()-ROW($A$2))/3) - Formülü, grubu numaralandırmak için veri kümeniz boyunca aşağıya doğru sürükleyin.
- Son veri satırının altına, A ve B sütunlarında boş değerler içeren ekstra satırlar ekleyin. Yardımcı sütunda (C sütunu), bu boş satırları doğru şekilde gruplandırmak için zaten mevcut olan grup numaralarıyla eşleşen grup numaraları girin.
- Tam aralığı (orijinal + eklenen satırlar) seçin, ardından yardımcı sütuna göre sıralayın ve gerekirse ikincil bir sıralama uygulayın. Boş satırlar artık her n veri satırından sonra görünecektir.
🟡 Hata uyarısı:
- Boş satırlarınıza doğru grup numaralarını atadığınızdan emin olun - uyuşmazlıklar, bunların istenmeyen yerlerde görünmesine neden olur.
- Bu yöntem, fiziksel satırları yalnızca sıralamadan sonra ekler, bu yüzden kaydetmeden veya dışarı aktarmadan önce nihai düzeni onaylayın.
Özet ve ipuçları: VBA veya Kutools gibi araçları kullanmak kadar etkili olmasa da, bu formül tabanlı yöntem evrenseldir ve betiklere bağımlı değildir. Seyrek veya hafif görevler için basit ve esnek bir geçici çözüm sunar.
Belirli sayılar temelinde VBA kodu ile satırları birden çok kez kopyalayıp ekleyin
Göreviniz, yalnızca boş satırlar eklemek değil, aynı zamanda mevcut veri satırlarını belirli bir sayıda kopyalayıp eklemek de gerektiriyorsa (belki ayrı bir sayılar listesine göre), aşağıdaki VBA kodu pratik bir otomatik yöntem sunar. Bu, satış siparişleri, senaryolar veya kaynak planlaması için girişleri çoğaltmak için özellikle yararlıdır.
 | |  |
Bunu uygulamak için aşağıdaki ayrıntılı adımları izleyin:
1. Excel'de ALT + F11 tuşlarına basılı tutarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle Insert > Module'e tıklayın ve ardından aşağıdaki kodu modül penceresine yapıştırın.
VBA kodu: Belirli sayılar temelinde satırları birden çok kez kopyalayıp ekleme:
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: Satırları çoğaltan VBA betiklerini çalıştırmadan önce her zaman verilerinizi yedekleyin, çünkü bu betikler veriyi hızla çoğaltabilir ve kolayca geri alınamaz.
3. Kod yerine oturduktan sonra, makroyu çalıştırmak için F5'e basın. İletişim kutusunda, her satırın kaç kez çoğaltılmasını ve eklenmesini istediğinizi temsil eden sayılar listesini seçin.
4. Tamam'a tıklayın. Belirtilen sayıda satır, aşağıdaki gibi gösterildiği gibi her orijinal satırın altına kopyalanacak ve eklenecektir:
| | |
İpucu: Bu çözüm, veri hazırlama görevleri için en iyisidir ve gerçek zamanlı giriş için ideal değildir, çünkü VBA makroları, daha fazla ilgisiz işlem gerçekleştirildiğinde geri alınamaz.
Harika bir özellik ile belirli sayılar temelinde satırları birden çok kez kopyalayıp ekleyin
Satırları çoğaltıp eklemek için programlama becerisi gerektirmeyen sezgisel bir süreç isteyenler için, Kutools for Excel özelliği olan Hücre Değerine Göre Satır/Sütun Çoğalt, etkili bir alternatiftir. Bu araç, hangi satırları veya sütunları çoğaltacağınızı ve bunu kaç kez yapacağınıza dair referans hücre değerine veya listeye göre birkaç basit seçimle belirlemenizi sağlar.
Kutools for Excel'i yükledikten sonra şu adımları izleyin:
1. Aşağıda gösterildiği gibi Kutools > Ekle > Hücre Değerine Göre Satır/Sütun Çoğalt'a gidin:
2. Satır ve Sütunları Kopyala ve Ekle iletişim kutusunda, türünüz olarak Satırları Kopyala ve Ekle'yi seçin, çoğaltmak istediğiniz veri aralığını belirtin ve ardından çoğaltma araması olarak kullanılacak değer listesini belirtin, aşağıda gösterildiği gibi:
İpucu: Test örnekleri oluşturmak, işlem şablonlarını çoğaltmak veya karmaşık betik yazmadan hızlıca ayarları veya kayıtları çoğaltmak için bunu kullanın.
4. Son olarak, aşağıdaki gibi gösterildiği gibi çıktıyı oluşturmak için Tamam veya Uygula'ya tıklayın:
| | |
Not: Değer listenizin verilerinizle doğru şekilde hizalandığından emin olun, böylece beklenen sonuçları elde edersiniz.
Kutools for Excel'i Şimdi İndirin ve Ücretsiz Deneyin!
Daha fazla ilgili makale:
- Satırı Birden Çok Kez Kopyala ve Ekle veya Satırı X Kere Çoğalt
- Günlük çalışmalarınızda, bir çalışma sayfasındaki mevcut veri satırının altına bir satırı veya her satırı kopyalayıp birden çok kez eklemeyi denediniz mi? Örneğin, bir hücre aralığım var ve şimdi her satırı aşağıdaki ekran görüntüsünde gösterildiği gibi sonraki satıra 3 kez kopyalamak ve yapıştırmak istiyorum. Bu işi Excel'de nasıl halledebilirsiniz?
- Excel'de Değer Değiştiğinde Boş Satır Ekleme
- Diyelim ki bir veri aralığınız var ve şimdi veriler arasında değer değiştiğinde boş satırlar eklemek istiyorsunuz, böylece bir sütundaki ardışık aynı değerleri aşağıdaki ekran görüntülerinde gösterildiği gibi ayırabilirsiniz. Bu makalede, bu sorunu çözmek için size bazı püf noktalarından bahsedeceğim.
- Excel'de Belirli Metinden Sonra Boş Satır Ekleme
- 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 manuel olarak eklemek zorunda kalmadan hızlı ve kolay bir şekilde nasıl halledebilirsiniz?
- Kriterlere Göre Birden Çok Çalışma Sayfasından Satırları Yeni Bir Sayfaya Kopyalama
- Diyelim ki, aşağıdaki ekran görüntüsünde gösterildiği gibi aynı formatlama özelliğine sahip üç çalışma sayfası içeren bir çalışma kitabınız var. Ş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 sorunu, tek tek manuel olarak kopyalayıp yapıştırmadan hızlı ve kolay bir şekilde nasıl çözebilirsiniz?
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin