Bir sütundaki hücre değerine göre satırları nasıl çoğaltabilirim?
Örneğin, D sütunundaki sayıların bir listesini içeren bir veri aralığım var ve şimdi, aşağıdaki sonucu elde etmek için D sütunundaki sayısal değerlere dayalı olarak tüm satırları birkaç kez çoğaltmak istiyorum. Excel'deki hücre değerlerine göre satırları birden çok kez nasıl kopyalayabilirim?
VBA kodu ile hücre değerlerine göre satırları birden çok kez çoğaltın
Kullanışlı bir araçla belirli sayıda satırları kopyalayın ve ekleyin - Kutools for Excel
VBA kodu ile hücre değerlerine göre satırları birden çok kez çoğaltın
Tüm satırları hücre değerlerine göre birden çok kez kopyalamak ve çoğaltmak için aşağıdaki VBA kodu size yardımcı olabilir, lütfen şu şekilde yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Hücre değerine göre satırları birden çok kez çoğaltın:
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar, ihtiyacınız olan D sütunundaki hücre değerine bağlı olarak tüm satırlar birden çok kez çoğaltılmıştır.
Kullanışlı bir araçla belirli sayıda satırları kopyalayın ve ekleyin - Kutools for Excel
VBA koduna aşina değilseniz ve koddaki parametreleri kendiniz doğru şekilde değiştiremiyorsanız. bu durumda, Kutools for Excel's Hücre Değerine Göre Yinelenen Satırlar / Sütunlar özelliği, yalnızca üç tıklama ile hücre değerlerine dayalı olarak satırları birden çok kez kopyalamanıza ve eklemenize yardımcı olabilir.
- Tıkla Kutools > Ekle > Hücre Değerine Dayalı Yinelenen Satırlar/Sütunlar bu özelliği etkinleştirmek için;
- Sonra seçin Satırları kopyala ve ekle seçeneğini seçin ve hücrelerini belirtin. Aralık Ekle ve Tekrarlayın iletişim kutusunda ayrı ayrı
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!