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

Günlük çalışmanızda, hiç bir satırı veya her satırı kopyalamayı ve ardından bir çalışma sayfasındaki geçerli veri satırının altına birden çok kez eklemeyi denediniz mi? Örneğin, bir hücre aralığım var, şimdi, her satırı kopyalamak ve aşağıdaki ekran görüntüsü gibi 3 kez sonraki satıra yapıştırmak istiyorum. Excel'de bu işle nasıl başa çıkabilirsiniz?

• VBA kodu ile belirli bir satırı birden çok kez kopyalayıp ekleyin
• VBA kodu ile her satırı birkaç kez kopyalayın ve ekleyin
• Harika bir özellikle belirli bir sayıya göre her satırı birkaç kez kopyalayıp ekleyin

VBA kodu ile belirli bir satırı birden çok kez kopyalayıp ekleyin

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

1. Birden çok kez kopyalamak ve eklemek istediğiniz bir satırı belirtin ve ardından ALT + F11 anahtarlar, ardından açılır Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: Belirli bir satırı birden çok kez çoğaltın:

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 F5 Bu kodu çalıştırmak için bir anahtar ve çoğaltmak istediğiniz sayıyı girmenizi hatırlatmak için bir komut kutusu açılır, ekran görüntüsüne bakın:

4. Sonra tıklayın OK düğmesi ve seçilen satırın altına üç yeni kopyalanmış satır eklendi, ekran görüntüsüne bakın:

VBA kodu ile her satırı birkaç kez kopyalayın ve ekleyin

Her satırı bir aralıkta birden çok kez çoğaltmak için aşağıdaki VBA kodunu uygulayabilirsiniz, lütfen aşağıdaki gibi yapın:

1. Basılı tutun ALT + F11 anahtarlar, ardından açılır Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: Her satırı birden çok kez çoğaltın:

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 sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve her kayıt için kopyalamak istediğiniz sayıyı girmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:

4. Sonra tıklayın OKve her satır kopyalandı ve aktif olanların altına 3 kez eklendi, ekran görüntüsüne bakın:

Harika bir özellikle belirli bir sayıya göre her satırı birkaç kez kopyalayıp ekleyin

Belki, VBA koduna aşina değilsinizdir veya kod hakkında endişelenmeniz verilerinizi çökertecektir. Burada yararlı bir özellik sunacağım, Kutools for Excel's Hücre değerine göre Yinelenen Satırları / Sütunları, bu yardımcı programla, belirttiğiniz numaraya göre satırları hızlı bir şekilde kopyalayabilir ve ekleyebilirsiniz.

Kurduktan sonra Kutools for Excellütfen şunu yapın:

1. Verilerinizin yanındaki hücre listesine satırları çoğaltmak istediğiniz tekrar numaralarını girin, ekran görüntüsüne bakın:

2. tıklayın Kutools > Ekle > Hücre değerine göre Yinelenen Satırları / Sütunları, ekran görüntüsüne bakın:

3. In Satırları ve sütunları kopyalayın ve ekleyin iletişim kutusunu seçin Satırları kopyala ve ekle seçeneği Tip bölümünde, kopyalamak istediğiniz veri aralığını seçin ve ardından satırları çoğaltmak için tekrarlama süresini belirtin, ekran görüntüsüne bakın:

4. Daha sonra, Ok or Başvurmalıyım düğmesi, ihtiyacınız olduğunda aşağıdaki sonucu alacaksınız:

Kutools for Excel'i indirmek için tıklayın ve Şimdi ücretsiz deneme!