Note: The other languages of the website are Google-translated. Back to English

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

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 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:

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 Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (32)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkür ederim!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Müthiş Makro - Bana çok zaman kazandırdı!
Bu yorum sitedeki moderatör tarafından en aza indirildi
gerçekten güzel makro dostum!
Bu yorum sitedeki moderatör tarafından en aza indirildi
rastgele yinelenen satırlar oluşturmak istiyorum,

örneğin için 20 ila 80 arasında rastgele yinelenen satırlar oluşturun.


aşağıdakiler için güncellenen kod ne olacak


Alt ekleme satırları()
'güncelleme Extendoffice 2016616
Dim kadar uzun
Tamsayı olarak xCount Dim
Etiket Numarası:
xCount = Application.InputBox("Satır Sayısı", "Kutools for Excel", , , , , , 1)
xCount < 1 ise
MsgBox "Girilen satır sayısı hatalı lütfen tekrar giriniz", vbInformation, "Kutools for Excel"
Etiket Numarasına Git
Eğer son
I = Range("A" & Rows.CountLarge).End(xlUp).Row To 1 Step -1 için
Satırlar(I).Kopyala
Satırlar(I).Boyutlandır(xCount).Ekle
Sonraki
Application.CutCopyMode = Yanlış
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bir parametreye göre satırları çoğaltmak istiyorum. Örneğin, toplantı süresi süresi adında bir sütunum var. Bu sütun 1'den fazlaysa, bu sayıya göre toplantı kimliği satırlarını çoğaltmak istiyorum. Toplantı süresi 2 saat ise, toplantı kimliğini iki kez çoğaltın. Toplantı 3 saat ise, üç kez tekrarlayın.
yarım saatlik artışlar saate yuvarlanabilir.

MeetingID Başlangıç ​​Zamanı Bitiş Toplantı Süresi
43117 9:00 11:00 02:00
43580 9:30 11:00 01:30
42699 10:00 AM 11:30 AM 01:30
12345 01:00 PM 2:00 PM 01:00
Bu yorum sitedeki moderatör tarafından en aza indirildi
bende de aynı sorun var Bir çözüm buldun mu?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, çocuklar,
Aşağıdaki VBA kodu size bir iyilik yapabilir, lütfen uygulayın:
Alt ekleme satırları()
Dim kadar uzun
Aralık olarak Dim xRg
Loş xSaat, xDak Uzunluk
On Error Resume Next
Application.ScreenUpdating = Yanlış
I = Range("D" & Rows.CountLarge).End(xlUp).Row To 1 Step -1 için
xSaat = 0
xRg = Aralık ("D" & I) olarak ayarla
xHour = Saat(xRg.Value) + 1
xMin = Dakika(xRg.Value)
xMin < 30 ise xHour = xHour - 1
Satırlar(I).Kopyala
Satırlar(I).Boyutlandır(xHour).Ekle
Sonraki
Application.ScreenUpdating = True
Application.CutCopyMode = Yanlış
End Sub

Lütfen dene. Umarım size yardımcı olabilir!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu makroları geçmişte kullandım ve son zamanlara kadar hep çalıştı. Birden çok satır makrolarını kullanırken bile neden yalnızca en üst satırı çoğaltacağına dair herhangi bir fikir var mı? Tüm filtreleri/donmuş bölmeleri kaldırdım.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, aşağıdakileri içerecek şekilde kodu nasıl değiştirebilirim

1. gün sayısına göre kopyalayın
2. EOM sütununu ayın sonundan günlük tarihe değiştirin
Bu yorum sitedeki moderatör tarafından en aza indirildi
Desteğiniz için gerçekten teşekkürler !!!!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kodu sev! Başlangıç ​​aralığını ilk satırı (Sütun Başlıkları) atlayıp 2. satırdan başlayacak şekilde nasıl ayarlayabilirim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Devin,
İlk başlık satırını atlamak için lütfen aşağıdaki VBA kodunu uygulayın:

Alt ekleme satırları()
Dim kadar uzun
Tamsayı olarak xCount Dim
Etiket Numarası:
xCount = Application.InputBox("Satır Sayısı", "Kutools for Excel", , , , , , 1)
xCount < 1 ise
MsgBox "Girilen satır sayısı hatalı lütfen tekrar giriniz", vbInformation, "Kutools for Excel"
Etiket Numarasına Git
Eğer son
I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1 için
Satırlar(I).Kopyala
Satırlar(I).Boyutlandır(xCount).Ekle
Sonraki
Application.CutCopyMode = Yanlış
End Sub

Lütfen deneyin, umarım size yardımcı olabilir!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, yardıma ihtiyacım var, tablom böyle görünüyor, örneğin, 2. tablomun sonuna 1 satır eklediğimde, aşağıdaki tablo için de aynı şeyi yapmama vba'nın yardım etmesini istiyorum (tabloya 2 satır ekleyin) tablonun sonu). Yani benim işim, sadece 1. tabloya satır eklemem gerekecek, aşağıdaki tablonun tümü 1. tablodaki satır sayılarına göre otomatik olarak satırlar oluşturacaktır. 1. tablo için satır eklemek için şimdi kullandığım kodlamalar. Umarım birileri bu sorunu benim için çözebilir, thx.Sub InsertNumRows()

ActiveCell.EntireRow.Copy

Rng Kadar Uzun Dim

Application.DisplayAlerts = Yanlış
On Error Resume Next
Rng = InputBox("Gerekli satır sayısını girin.")
Hata Dönüsünde 0
Application.DisplayAlerts = True

Rng = 0 ise
MsgBox "Aralık belirtmediniz!"
Exit Sub

başka
Aralık(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Seçin
Selection.EntireRow.Insert Shift: = xlDown
Eğer son

End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevdim! Her seferinde işe yarıyor! Bunun için çok teşekkür ederim :)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu sütunlar için nasıl yaparım?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu sütunlar için nasıl yapabilirim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
VB kullanılarak seçilen hücrelerle aynı işlemin nasıl gerçekleştirileceği,


Birkaç seçili hücreyi (satırlar ve sütunlar) x defa aynı sayfada ve aynı sırayla tekrarlamam gerekiyor:

line1
line2
line3

line1
line2
line3
Bu yorum sitedeki moderatör tarafından en aza indirildi
merhaba bu harika çalıştı, sadece N sayıda kopyalanmış iki satıra ihtiyacım var. Lütfen kodu, iki satır seçtiğimde, bu iki satırı N kez aşağı kopyalayacak şekilde ayarlayabilir misiniz? Yardımlarınız için teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Yalnızca iki satırı birden çok kez aşağı kopyalamanız gerekiyorsa, bu makaledeki VBA kodu 1'i kullanmanız yeterlidir, kodu iki kez uygulamanız sorununuzu çözecektir. Lütfen deneyin, umarım size yardımcı olabilir!
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA Koduyla Her Satırı Birden Çok Kez Kopyalayın ve Ekleyin

VBA kodunda başlangıç ​​satırını nasıl seçebilirim
Bu yorum sitedeki moderatör tarafından en aza indirildi
Windows 2019'da hiçbir işlev yok, basit bir şekilde kullanılamaz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
herkese merhaba.. Yardımlarınız için şimdiden teşekkürler!!

Belirli bir satırı birden çok kez çoğaltmak için kullanılan VBA kodu, siz bir filtre kullanana kadar mükemmel çalışır. Birisinin bu sorunu çözmeme yardım edip edemeyeceğini merak ediyorum. Filtrelenmiş bazı değerleriniz olsa bile çalışan bir koda ihtiyacım var. Konumlara göre sıralanmış büyük miktarda veri kullanıyorum. Kod kısmen çalışıyor, bir filtre uyguladığımda satır sayısını yapıştırıyor ancak veri veya format yok.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, her satır için farklı boyut(değer) kullanmak mümkün müdür? Vektör kullanmaya çalışıyorum ama çalışmıyor.
Örneğin :
Satırlar(I).Boyutlandır(xCount(y) ).Ekle

xCount(y) içinde kaydedilen değerlerin bir tablodan okunduğu yer.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Guss,
Aşağıdaki makale size yardımcı olabilir, lütfen kontrol edin:
https://www.extendoffice.com/documents/excel/4054-excel-duplicate-rows-based-on-cell-value.html
Bu yorum sitedeki moderatör tarafından en aza indirildi
İkinci VBA kodu için (VBA kodu: Her satırı birden çok kez çoğaltın) Çalışma zamanı hatası olarak alıyorum: 1004
Buraya henüz hiç yorum yapılmamış
Daha Çok
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır