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.