Excel'de bir satırı nasıl birden fazla kez kopyalayıp ekleyebilir veya belirli bir sayıda (x kez) çoğaltabilirim?

Günlük工作中, bir çalışma sayfasındaki mevcut veri satırlarının altına her satırı birden fazla kez kopyalayıp eklemeyi denediniz mi? Örneğin, belirli bir hücre aralığım var ve şimdi her satırı 3 kez kopyalayıp hemen altına yapıştırmak istiyorum (aşağıdaki ekran görüntüsünde gösterildiği gibi). Excel’de bu işlemi nasıl gerçekleştirebilirsiniz?

• Belirli bir satırı VBA koduyla birden fazla kez kopyalayın ve ekleyin
• Her satırı VBA koduyla birden fazla kez kopyalayın ve ekleyin
• Her satırı, harika bir özellik kullanarak belirli bir sayıya göre birden fazla kez kopyalayın ve ekleyin

Belirli bir satırı VBA koduyla birden fazla kez kopyalayın ve ekleyin

Yalnızca bir belirli satırı x kez çoğaltmak istiyorsanız, aşağıdaki VBA kodu size yardımcı olabilir; lütfen şu şekilde yapın:

1. Kopyalayıp birden fazla kez eklemek istediğiniz satırı seçin, ardından ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Ekle > Modül seçeneğine tıklayıp aşağıdaki kodu Modül penceresine yapıştırın.

VBA kodu: Belirli bir satırı birden fazla 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, çoğaltmak istediğiniz tekrar sayısını girmenizi hatırlatan bir uyarı kutusunun açılması için F5 tuşuna basın; ekran görüntüsüne bakın:

4. Ardından Tamam düğmesine tıklayın; seçili satırın altına üç yeni kopyalanmış satır eklenmiş olacaktır. Ekran görüntüsüne bakın:

Her satırı VBA koduyla birden fazla kez kopyalayın ve ekleyin

Bir aralıkta her satırı birden fazla kez çoğaltmak için aşağıdaki VBA kodunu uygulayabilirsiniz; lütfen aşağıdaki gibi yapın:

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

2.Ekle>Modülseçeneğine tıklayın ve aşağıdaki kodu ModülPenceresine yapıştırın.

VBA kodu: Her satırı birden fazla 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. Ardından, her kaydın kaç kez çoğaltılacağını girmenizi isteyen bir uyarı kutusu açılacaktır; ekran görüntüsüne bakın:F5 tuşuna basarak kodu çalıştırın.

4. Ardından Tamam düğmesine tıklayın; her satır, etkin satırların altına üç kez kopyalanarak eklenecektir. Ekran görüntüsüne bakın:

Her satırı, harika bir özellik kullanarak belirli bir sayıya göre birden fazla kez kopyalayın ve ekleyin

Belki VBA koduna alışkın değilsiniz ya da kodun verilerinizi bozacağından endişe ediyorsunuz. İşte tam size göre bir çözüm: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 Kutools for Excel'i yükledikten sonra lütfen şu şekilde yapın:

1. Verilerinizin yanındaki hücrelere, çoğaltmak istediğiniz tekrar sayılarını girin; ekran görüntüsüne bakın:

2.Kutools>Ekle>Belirtilen Verilere Göre Satır/Sütun Kopyala veya Ekleseçeneğine tıklayın; ekran görüntüsüne bakın:

3.Satır/Sütun Kopyala ve Ekleiletişim kutusunda,Satır Kopyala ve Ekleseçeneğini Türbölümünde seçin, ardından çoğaltmak istediğiniz Veri Aralığı'yi belirtin ve satırları çoğaltmak için tekrar sayısını girin; ekran görüntüsüne bakın:

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

Kutools for Excel'i indirmek ve hemen ücretsiz denemek için tıklayın!

En İyi Office Üretkenlik Araçları

🤖	KUTOOLS AI Yardımcısı: Şunu temel alarak Veri Analizi’i devrimleştirin:Akıllı Yürütme   |  Kod Oluştur|  özel formüller Oluştur  |  Verileri Analiz Et ve Grafikler Oluştur|  Geliştirilmiş İşlevler Çağır…
	Popüler Özellikler:Bul, Vurgula veya Yinelenenleri İşaretle   |  Boş Satırları Sil   |  Veri Kaybetmeden Sütunları Birleştir veya Hücreleri   |   Formül kullanmadan yuvarlama…
	Süper ARA:Çoklu Kriterli Dikey Arama (VLookup)  |  Çoklu Değerli Dikey Arama (VLookup)  |   Birden Fazla Sayfada Dikey Arama (VLookup)   |   Bulanık Eşleme…
	Gelişmiş Açılır Liste:Açılır Liste Hızlıca 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 Aç/Kapat|Aralıkları ve 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ı ve Sayfa Yöneticisi   |  Kaynaklar(Otomatik Metin)|  Tarih Seçici   |  Çalışma Sayfalarını Birleştir  |  Şifrele/Hücreleri Şifre Çöz   | Listeye Göre E-posta Gönder   |  Süper Filtre   |   Özel Filtre(Kalın Yazılı Hücreleri Filtrele/italik/üstü çizili…) …
	En Çok Kullanılan 15 Araç Setleri:12 MetinAraçları(Metin Ekle,Belirli Karakterleri Sil, …)|   50+GrafikTürleri(Gantt Grafiği, …)|   40+ Pratik Formüller(Doğum tarihine dayanarak yaş hesapla, …)|   19 EklemeAraçları(QR Kodu Ekle,Yoldan Resim Ekle, …)|   12 DönüştürmeAraçları(Kelimeye Dönüştür,Döviz Kuru Dönüşümü, …)|   7 Birleştir ve AyırAraçları(Gelişmiş Satırları Birleştir,Hücreleri Böl, …)|… ve daha fazlası

Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40+ başka dillerde de desteklenir!

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…

Kutools for Excel hakkında daha fazla ayrıntı…Ücretsiz İndir…

---

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!

Office Tab hakkında daha fazla ayrıntı…Ücretsiz İndir…

---

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

Kutools for Office hakkında daha fazla ayrıntı…Ücretsiz İndir…