Excel'de başka bir sütuna göre belirli sayıda satırı nasıl tekrarlayabilirsiniz?
Aşağıdaki ekran görüntüsünde gösterildiği gibi başka bir sütun değerine dayalı olarak bir satırı tekrarlamayı denediniz mi? Bu makalede, Excel'de bu görevi çözme yöntemini tanıtacağım.
VBA ile başka bir sütun değerine göre satırları tekrarlama
Kutools for Excel ile başka bir sütun değerine göre satırları tekrarlama
VBA ile başka bir sütun değerine göre satırları tekrarlama
Burada son sütun değerlerine göre satırları hızlıca tekrarlayabilen bir kodum var.
1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
2. Ekle > Modül'e tıklayın, ardından aşağıdaki kodu kopyalayın ve yeni Modül betiğine yapıştırın.
VBA: Başka bir sütun değerine göre satırları tekrarlama
Sub CopyRow()
'UpdatebyExtendoffice20181011
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the number value", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub
3. Tuşa basın F5 tuşuna basın, bir iletişim kutusu açılır, satırların tekrarlanacağı sayı listesini seçin.
4. Tamam'a tıklayın, satırlar seçilen sütun değerine göre tekrarlandı.
Kutools for Excel ile başka bir sütun değerine göre satırları tekrarlama
Eğer VBA kullanmakta iyi değilseniz, Kutools for Excel'in Hücre Değerine Göre Yinelenen Satırlar/Sütunlar özelliğini deneyebilirsiniz, bu özellik yalnızca iki adımı gerektirir.
1. Tıklayın Kutools > Ekle > Duplicate Rows/Columns Based on Cell Value.
2. Açılan diyalogda şunu seçin Satır Kopyala ve Ekle seçeneğini Tür bölümünde, ardından tekrarlamak istediğiniz alanı seçin Ekleme Aralığımetin kutusuna ve tekrar sayısını belirleyen sütunu seçin Tekrarlama Sayısı metin kutusuna. Tıklayın Tamam.
Sonra satırlar seçilen sütuna göre tekrarlanacak.
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin