Skip to main content

Kutools for Office — Bir Paket. Beş Araç. Daha Fazla İş Yapın.

Excel'de bir satırı birden çok kez kopyalayıp eklemek veya x kez çoğaltmak nasıl yapılır?

Author Xiaoyang Last modified

Günlük işlerinizde, 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, bir hücre aralığım var ve şimdi her satırı kopyalayıp bir sonraki satıra 3 kez yapıştırmak istiyorum, aşağıdaki ekran görüntüsünde gösterildiği gibi. Bu işlemi Excel'de nasıl halledebilirsiniz?

original data arrow right copy and insert row multiple times

Belirli bir satırı VBA kodu ile birden çok kez kopyalayıp ekleme

Eğer yalnızca belirli bir satırı x kez çoğaltmak istiyorsanız, aşağıdaki VBA kodu size yardımcı olabilir, lütfen şu adımları izleyin:

1. Birden çok kez kopyalamak ve eklemek istediğiniz satırı belirtin ve ardından ALT + F11 tuşlarına basın, 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 bir satırı birden çok kez çoğaltma:

Sub test()
'Updateby Extendoffice
    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount < 1 Then
        MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

3. Kodu yapıştırdıktan sonra, lütfen bu kodu çalıştırmak için F5 tuşuna basın ve sizden çoğaltmak istediğiniz sayıyı girmenizi hatırlatan bir uyarı kutusu açılacaktır, aşağıdaki ekran görüntüsüne bakın:

enter the number of times want to duplicate

4. Ardından Tamam butonuna tıklayın ve seçilen satırın altına üç yeni kopyalanmış satır eklenecektir, aşağıdaki ekran görüntüsüne bakın:

the specific number of new copied rows are inserted below the selected row

Belirli bir sayıya göre her satırı kolayca birden çok kez kopyalayıp ekleme

Normalde, satırları birden çok kez kopyalamak ve eklemek için iyi bir yöntem bulunmamaktadır, elle kopyalama ve ekleme dışında. Ancak, Kutools for Excel'in Belirtilen Verilere Göre Satır/Sütun Kopyala veya Ekle özelliği ile bu sorunu kolayca çözebilirsiniz. Kutools for Excel'i indirmek için tıklayın!

Kutools for Excel: 300'den fazla kullanışlı Excel eklentisiyle, 60 gün boyunca sınırlamasız ücretsiz deneme imkanı. Şimdi İndirin ve Ücretsiz Deneyin!

Her satırı VBA kodu ile birden çok kez kopyalayıp ekleme

Bir aralıktaki her satırı birden çok kez çoğaltmak için aşağıdaki VBA kodunu uygulayabilirsiniz, lütfen şu adımları izleyin:

1. ALT + F11 tuşlarına 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: Her satırı birden çok kez çoğaltma:

Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub

3. Ve ardından bu kodu çalıştırmak için F5 tuşuna basın ve her kayıt için çoğaltmak istediğiniz sayıyı girmenizi hatırlatan bir uyarı kutusu açılacaktır, aşağıdaki ekran görüntüsüne bakın:

enter the number of times want to duplicate for each record

4. Ardından Tamam'a tıklayın ve her satır aktif olanların altına 3 kez kopyalanıp eklenmiş olacaktır, aşağıdaki ekran görüntüsüne bakın:

original data arrow right each row is copied and inserted specific number of times

Not: Yukarıdaki kodda, A, veri aralığının A sütununda başladığını gösterir, eğer verileriniz K sütununda başlıyorsa, lütfen A'yı K olarak değiştirin.

Belirli bir sayıya göre her satırı birden çok kez kopyalayıp ekleme (harika bir özellik ile)

Belki VBA koduyla ilgili bilginiz yoktur ya da kodun verilerinizi bozacağından endişe edersiniz. Burada size faydalı bir özellik tanıtmak istiyorum, Kutools for Excel'in Belirtilen Verilere Göre Satır/Sütun Kopyala veya Ekle özelliği, bu araçla belirttiğiniz sayıya göre satırları hızlıca kopyalayıp ekleyebilirsiniz.

Kutools for Excel, karmaşık görevleri basitleştirmek için 300'den fazla gelişmiş özellik sunar ve yaratıcılığı ve verimliliği artırır. Yapay zeka yetenekleriyle entegre olarak, Kutools görevleri hassas bir şekilde otomatikleştirir ve veri yönetimi işlerini kolaylaştırır. Kutools for Excel hakkında detaylı bilgi...  Ücretsiz deneme...

İpuçları:Bu Belirtilen Verilere Göre Satır/Sütun Kopyala veya Ekle özelliğini kullanmak için, önce Kutools for Excel'i indirmelisiniz ve ardından özelliği hızlı ve kolay bir şekilde uygulayabilirsiniz.

Kutools for Excel'i yükledikten sonra, lütfen şu adımları izleyin:

1. Verilerinizin yanındaki hücreler listesinde satırları çoğaltmak istediğiniz tekrar sayısını girin, aşağıdaki ekran görüntüsüne bakın:

Enter the repeat numbers to duplicate rows in a list of cells beside the data

2. Kutools > Ekle > Belirtilen Verilere Göre Satır/Sütun Kopyala veya Ekle'ye tıklayın, aşağıdaki ekran görüntüsüne bakın:

click Duplicate Rows / Columns based on cell value feature of kutools

3. Satırları ve sütunları kopyala ve ekle iletişim kutusunda, Tür bölümünde Satırları kopyala ve ekle seçeneğini seçin, ardından çoğaltmak istediğiniz veri aralığını seçin ve ardından satırları çoğaltmak için tekrar sayısını belirtin, aşağıdaki ekran görüntüsüne bakın:

specify options in the dialog box

4. Ardından, Tamam veya Uygula düğmesine tıklayın, ihtiyacınız olan aşağıdaki sonucu elde edeceksiniz:

original data arrow right rows are repeated by the specific number

Kutools for Excel'i Şimdi İndirin ve Ücretsiz Deneyin!

En İyi Ofis Verimlilik Araçları

🤖 Kutools AI Asistanı: Veri analizinde devrim yaratın – Akıllı Yürütme | Kod Oluştur | Özel Formüller Oluştur | Verileri Analiz Et ve Grafikler Oluştur | Kutools Fonksiyonlarını Çağır…
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya İşaretle | Boş Satırları Sil | Sütunları veya Hücreleri Veriyi Kaybetmeden Birleştir | Formül olmadan Yuvarla...
Süper ARA: Çoklu Kriter VLookup | Çoklu Değer VLookup | Çoklu sayfa araması | Bulanık Eşleme....
Gelişmiş Açılır Liste: Hızlıca Açılır Liste Oluştur | Bağımlı Açılır Liste | Çoklu seçimli Açılır Liste....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekle | Sütunları Taşı | Gizli Sütunların Görünürlük Durumunu Değiştir | Aralıkları & Sütunları Karşılaştır...
Öne Çıkan Özellikler: Izgara Odaklama | Tasarım Görünümü | Gelişmiş formül çubuğu | Çalışma Kitabı & Çalışma Sayfası Yöneticisi | Otomatik Metin Kütüphanesi | Tarih Seçici | Veri Birleştir | Hücreleri Şifrele/Şifre Çöz | Listeye Göre E-posta Gönder | Süper Filtre | Özel Filtre (kalın/italik/üstü çizili filtreleme...)...
En İyi15 Araç Takımı:12 Metin Aracı (Metin Ekle, Belirli Karakterleri Sil, ...) | 50+ Grafik Türü (Gantt Grafiği, ...) | 40+ Pratik Formül (Doğum tarihine dayanarak yaş hesapla, ...) | 19 Ekleme Aracı (QR Kodu Ekle, Yoldan Resim Ekle, ...) | 12 Dönüşüm Aracı (Kelimeye Dönüştür, Para Birimi Dönüştürme, ...) | 7 Birleştirme & Bölme Aracı (Gelişmiş Satırları Birleştir, Hücreleri Böl, ...) | ... ve dahası
Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40+ diğer dili destekler!

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.

Excel Word Outlook Tabs PowerPoint
  • 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