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:
Her satırı, belirli bir sayıya göre kolayca kopyalayıp ekleyin
Normalde, satırları birden çok kez kopyalamak ve eklemek için el ile kopyalama ve ekleme işlemleri dışında iyi bir yöntem yoktur. Fakat Kutools for Excel's Hücre değerine göre satırları / sütunları çoğaltın özelliği, bu sorunu kolaylıkla çözebilirsiniz. Kutools for Excel'i indirmek için tıklayın!
Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 60 günde sınırlama olmaksızın ücretsiz deneyin. Hemen indirin ve ücretsiz deneme!
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 Sub3. 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:
|
|
|
not: Yukarıdaki kodda, A verileriniz sütununda başlıyorsa, veri aralığının A sütununda başladığını belirtir K, lütfen değiştir A için K ihtiyacın gibi.
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.
İpuçları:Bunu uygulamak için Hücre değerine göre Yinelenen Satırları / Sütunları özelliği, öncelikle indirmelisiniz Kutools for Excelve ardından özelliği hızlı ve kolay bir şekilde uygulayın.
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 Tamam 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!
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
