Bir sütundaki hücre değerine göre yinelenen satırlar nasıl oluşturulur?
Excel veri tablolarıyla çalışırken, bazen bir Sütunu belirtin içindeki bir değere göre Tüm satır kopyalamanız gerekebilir. Örneğin, D sütununun bir sayıyı gösterdiği bir tablonuz olduğunu düşünün ve amacınız her satırı D sütunundaki ilgili hücre değerinin gösterdiği kadar kopyalamak veya eklemektir. Bu işlem, veri genişletme, test veri setleri hazırlama, envanter simülasyonu veya tekrarlanan sipariş satırları oluşturma gibi durumlarda yararlı olabilir. Manuel tekrarlardan kaçınarak bunu verimli bir şekilde gerçekleştirmek, özellikle büyük tablolar için veri bütünlüğünü korur ve iş akışını önemli ölçüde hızlandırır.
 |  |  |
Hücre değerlerine göre VBA koduyla birden fazla kez Yinelenen satır
Belirtilen sayıda tekrarlamak için kullanışlı bir araçla – Kutools for Excel – Satır Kopyala ve Ekle
Power Query dönüştürmesiyle Yinelenen satır
Hücre değerlerine göre VBA koduyla birden fazla kez Yinelenen satır
Belirli bir sütundaki değerlere göre (örneğin D sütunundaki tüm satırlar için) hızlıca kopyalar oluşturmanız gerekiyorsa, VBA doğrudan ve verimli bir çözüm sunar. Bu yaklaşım, özellikle büyük veri kümeleriyle çalışırken çok değerlidir; süreci otomatikleştirerek hem zaman kazandırır hem de doğruluğu garanti eder. Ancak VBA kullanımı, Excel’de Geliştirici sekmesine dair temel bilgiyi ve makroları yürütme konusunda bir anlayışı gerektirir. Ana avantajı esnekliktir: kod, farklı aralıklara veya hedef sütunlara kolayca uyarlanabilir. Öte yandan VBA ile rahat hissetmiyorsanız ya da ortamınızda güvenlik politikaları makroları engelliyorsa, lütfen aşağıdaki alternatif çözümlerden birini değerlendirin.
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun. Microsoft Visual Basic for Applications penceresi.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Hücre değerine göre birden fazla kez Yinelenen satır:
Sub CopyData()
'Updateby Extendoffice
Dim xRow As Long
Dim VInSertNum As Variant
xRow = 1
Application.ScreenUpdating = False
Do While (Cells(xRow, "A") <> "")
VInSertNum = Cells(xRow, "D")
If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xRow = xRow + 1
Loop
Application.ScreenUpdating = False
End Sub
3. Ardından bu kodu çalıştırmak için F5 tuşuna basın. Tüm satır, D sütunundaki hücre değerine göre gereksinimlerinize uygun şekilde birden fazla kez kopyalanacaktır.
Belirtilen sayıda tekrarlamak için kullanışlı bir araçla – Kutools for Excel – Satır Kopyala ve Ekle
Kod yazmadan bir çözüm arıyorsanız ya da toplu kopyalama işlemlerini yönetmek için kullanıcı dostu bir arayüze ihtiyacınız varsa, Kutools for Excel size pratik bir çözüm sunar. Belirtilen Verilere Göre Satır/Sütun Kopyala veya Ekle özelliği, ilgili hücrelerde belirtilen sayıya göre satır kopyalayıp eklemenizi hızla sağlar. Bu özellik, bu tür tekrarlayan satır işlemlerini düzenli olarak yapan kullanıcılar için idealdir ve daha görsel, özelleştirilebilir bir iş akışı sunar. Kutools, kopyalama sırasında orijinal tablonuzun düzenini ve biçimlendirmesini koruyarak kazara hataların riskini en aza indirir. Bu yöntem, VBA deneyiminiz ne olursa olsun sorunsuz çalışır ve orta ila büyük boyutlu aralıklarda verimliliğinizi önemli ölçüde artırır.
- Tıklayın Kutools>Ekle>Yinelenen satır/Hücre Değerine Göre Sütunlarbu özelliği etkinleştirmek için;
- Ardından, Satır Kopyala ve Ekle seçeneğini seçin ve iletişim kutusunda Oluşturma Aralığı ile Tekrarlama Sayısı hücrelerini ayrı ayrı belirtin. Seçimlerinizi onayladıktan sonra Tamam düğmesine tıklayın.
Power Query dönüştürmesiyle Yinelenen satır
Power Query, özellikle büyük tablolarla çalışırken veya verileri sık sık yenilemeniz gerektiğinde, bir sütun değerine göre satırları kopyalamak için sağlam ve tekrarlanabilir bir çözüm sunar. Bu aracı kullanarak, formül veya koda gerek kalmadan satırları sayısal göstergelere göre kolayca genişletebilirsiniz. Yöntem, görsel olarak açıklanabilir, adım adım ilerleyen bir süreç arayan ve gelecekteki veri güncellemelerinde tekrarlanabilirliğe ihtiyaç duyan kullanıcılar için idealdir.
1. Verilerinizi bir Excel Tablosu’na ekleyin (aralığı seçip)Ctrl+T tuşlarına basın). Tablonuzu Power Query’ye yüklemek için Veri > Tablodan/Araklıktan seçeneğine gidin.
2. Power Query Düzenleyicisi'nde Sütun Ekle sekmesini seçin ve Özel Sütun düğmesine tıklayın.
3. Her satır için D sütunundaki değere göre bir liste oluşturmak üzere aşağıdaki formülü yazın. ()Not: Gerçek sütun başlığınızla [D] kısmını değiştirmelisiniz. Örneğin, burada Tekrarlama Sayısı’nı seçip Ekle düğmesine tıklayarak [D] argümanını değiştireceğim.)
List.Repeat({1}, [D])
4. Yeni özel sütunun yanındaki Genişlet düğmesine tıklayın ve Yeni Satırlara Genişlet seçeneğini seçin.
5. Ardından, verilerin D sütunundaki değerlere göre kopyalandığını görebilirsiniz—ekran görüntüsüne göz atın:
6. Gerekirse yardımcı sütunları kaldırın ve verileri Excel’e geri yüklemek için Kapat ve Yükle düğmesine tıklayın.
En İyi Office Üretkenlik Araçları
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…
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!
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