Excel'deki başka bir sütuna göre satırları belirli bir sayıda tekrarlamak nasıl?

Aşağıda gösterilen ekran görüntüsü gibi başka bir sütun değerine göre bir satırı tekrarlamayı denediniz mi? Bu yazıda, bu işi Excel'de çözme yöntemini tanıtacağım.

VBA ile başka bir sütun değerine göre satırları tekrarlayın

Kutools for Excel tarafından başka bir sütun değerine göre satırları tekrarlayın

Kutools for Excel ile satırları sabit bir süre ile tekrarlayın

VBA ile başka bir sütun değerine göre satırları tekrarlayın

Burada son sütun değerlerine göre satırları hızlıca tekrarlayabilen bir kodum var.

1. Basın Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

2. tık Ekle > modül, ardından aşağıdaki kodu kopyalayın ve yenisine yapıştırın modül komut.

VBA: Başka bir sütun değerine göre satırları tekrarlayın

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. Basın F5 tuşuna bastığınızda, bir iletişim kutusu açılır, satırların temel alınarak tekrarlanacağı numara listesini seçin.

4. Tamam'ı tıklayın, satırlar seçilen sütun değerine göre tekrarlandı.

Kutools for Excel tarafından başka bir sütun değerine göre satırları tekrarlayın

VBA kullanmakta iyi değilseniz, deneyebilirsiniz Kutools for Excel'S Hücre Değerine Dayalı Yinelenen Satırlar/Sütunlar sadece iki adıma ihtiyaç duyan özellik.

1. tık Kutools > Ekle > Hücre Değerine Dayalı Yinelenen Satırlar/Sütunlar.

2. Açılan iletişim kutusunda Satırları kopyala ve ekle seçeneği Tip bölümüne gidin, ardından tekrarlamak istediğiniz aralığı seçin Aralığı Eklemetin kutusunu seçin ve tekrarlama sürelerine karar veren sütunu seçin. Tekrarlayın Metin kutusu. Tıklayın Ok.

Ardından satırlar seçilen sütun tarafından tekrarlanacaktır.

Kutools for Excel ile satırları sabit bir süre ile tekrarlayın

Satırları tek tek satır eklemeden sabit bir süre ile yinelemek istiyorsanız, Boş Satırlar ve Sütunlar Ekle ve Boş Hücreleri Doldur yararları Kutools for Excel bu işi hızla halletmek için.

Kurduktan sonra Kutools for Excel, lütfen aşağıdaki işlemleri yapın:（Şimdi Excel için Kutools'u Ücretsiz İndirin!)

1. Satırları tekrarlamak istediğiniz veri aralığını seçin, tıklayın Kutools > Ekle > Boş Satırlar ve Sütunlar Ekle. Sonra da Boş Satırlar ve Sütunlar Ekle iletişim, kontrol et Boş satırlar seçenek, ardından yazın 1 içine Aralık of metin kutusu ve satırları yinelemek istediğiniz numarayı yazın. satırlar Metin kutusu.

2. tık Okboş satırlar her satırın altına eklenmiştir.

3. Aralığı seçili tutun, tıklayın Kutools > Ekle > Boş Hücreleri Doldur. In Boş Hücreleri Doldur iletişim, kontrol et Değerlere göre ve Aşağı seçenekleri.

4. tık Ok. Şimdi boş hücreler yukarıdaki değerle dolduruldu.