Bir sütundaki hücre değerine göre satırları nasıl çoğaltabilirsiniz?
Excel veri tablolarıyla çalışırken, bazen belirli bir sütundaki değere göre tüm satırları çoğaltmanız gerekebilir. Örneğin, sütun D'de bir sayı olduğunu ve her satırı, sütun D'deki ilgili hücre değerine göre belirli sayıda kopyalamayı veya eklemeyi hedeflediğinizi hayal edin. Bu, veri genişletme, test için veri setleri hazırlama, envanter simülasyonu veya tekrarlanan sipariş satırları oluşturma gibi durumlarda faydalı olabilir. Bu işlemi manuel olarak yapmadan etkili bir şekilde gerçekleştirmek, veri bütünlüğünü korur ve özellikle büyük tablolar için iş akışını önemli ölçüde hızlandırır.
![]() | ![]() | ![]() |
Hücre değerlerine göre satırları VBA kodu ile birden çok kez çoğaltın
Belirtilen sayıda kez satır kopyalayıp eklemek için kullanışlı bir araç - Kutools for Excel
Power Query dönüşümü ile satırları çoğaltma
Hücre değerlerine göre satırları VBA kodu ile birden çok kez çoğaltın
Eğer belirli bir sütundaki değerlere göre (örneğin sütun D) tüm satırların kopyalarını hızlıca oluşturmanız gerekiyorsa, VBA size doğrudan ve etkili bir çözüm sunar. Bu yaklaşım, özellikle büyük veri setleriyle çalışırken otomasyon sağladığı ve doğruluğu artırdığı için değerlidir. Ancak, VBA ile çalışmak Excel Geliştirici sekmesi ile temel düzeyde bir aşinalık ve makroları nasıl çalıştıracağınız konusunda bir anlayış gerektirir. Ana avantaj esnekliktir - kod farklı aralıklara veya hedef sütunlara uyacak şekilde ayarlanabilir. Diğer taraftan, VBA ile rahat hissetmiyorsanız veya güvenlik politikaları ortamınızda makroları engelliyorsa, aşağıdaki alternatif çözümleri göz önünde bulundurun.
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarını basılı tutun.
2. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
VBA Kodu: Hücre değerine göre satırları birden çok kez çoğaltma:
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ırlar, sütun D'deki hücre değerine göre birden çok kez çoğaltılacak ve gereksinimlerinizi karşılayacaktır.
Belirtilen sayıda kez satır kopyalayıp eklemek için kullanışlı bir araç - Kutools for Excel
Kod kullanmadan bir yöntem tercih ediyorsanız veya toplu çoğaltmayı yönetmek için kullanıcı dostu bir arayüz istiyorsanız, Kutools for Excel pratik bir çözüm sunar. Hücre Değerine Göre Satır/Sütun Çoğaltma özelliği, ilgili hücrelerde belirtilen sayıya göre satırları hızlıca kopyalayıp eklemenizi sağlar. Bu özellik, bu tür tekrarlayan satır işlemlerini düzenli olarak yapan ve daha görsel, özelleştirilebilir bir süreç isteyenler için idealdir. Kutools, çoğaltma sırasında orijinal tablonun düzenini ve biçimlendirmesini korur ve kazara hataların riskini azaltır. Bu yöntem, VBA deneyiminiz ne olursa olsun sorunsuz çalışır ve orta ila büyük veri aralıkları için verimliliği önemli ölçüde artırır.
- Bu özelliği etkinleştirmek için Kutools > Ekle > Hücre Değerine Göre Satır/Sütun Çoğaltma'ya tıklayın;
- Ardından, Satır Kopyala ve Ekle seçeneğini seçin ve İletişim kutusunda Ekleme Aralığı ve Tekrarlama Sayısı hücrelerini ayrı ayrı belirtin. Seçimlerinizi onaylayın ve Tamam'a tıklayın.
Power Query dönüşümü ile satırları çoğaltma
Power Query, satırları bir sütun değerine göre çoğaltmak için sağlam ve tekrar kullanılabilir bir çözüm sunar - bu, özellikle büyük tablolar için veya verileri sık sık yenilemeniz gerektiğinde idealdir. Bu araç sayesinde, formüller veya kod olmadan sayısal göstergelere göre satırları genişletebilirsiniz. Bu yöntem, görsel olarak açıklayıcı, adım adım bir süreç isteyen ve gelecekteki veri güncellemeleriyle tekrarlanabilirlik ihtiyacı olan kullanıcılar için iyi çalışır.
1. Verilerinizi bir Excel Tablosuna ekleyin (aralığı seçin ve Ctrl+T'ye basın). Veri > Tablo/Aralıktan seçerek tablonuzu Power Query'ye yükleyin.
2. Power Query Editörü'nde Sütun Ekle sekmesini seçin ve Özel Sütun'a tıklayın.
3. Aşağıdaki formülü yazarak her satır için sütun D'deki değere göre bir liste oluşturun. ( Not: [D] yerine gerçek sütun başlığınızı değiştirmelisiniz. Örneğin burada, Tekrarlama Sayısı'nı seçeceğim ve [D] argümanını değiştirmek için Ekle düğmesine tıklayacağım.)
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ğine tıklayın.
5. Ardından, verilerin sütun D'deki değerlere göre çoğaltıldığını görebilirsiniz, ekran görüntüsüne bakın:
6. Yardımcı sütunları gerekirse kaldırın ve Verileri Kapat ve Yükle'ye tıklayarak verileri Excel'e geri yükleyin.
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi geliştirin ve daha önce hiç olmadığı kadar verimli olun. Kutools for Excel, üretkenliğinizi artırmak ve zamanınızı kaydetmek için300'den fazla gelişmiş özellik sunar. En çok ihtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Office'e sekmeli arayüz getirir ve işinizi çok daha kolaylaştırır
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Aynı pencerenin yeni sekmelerinde birden fazla belge açın ve oluşturun, yeni pencerelerde değil.
- Verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasını azaltır!