Excel'de satırları başka bir sütundaki değerlere göre belirtilen sayıda nasıl tekrar edebilirim?
Aşağıdaki ekran görüntüsünde gösterildiği gibi, bir satırı başka bir sütundaki değere göre tekrarlamayı denediniz mi? Bu makalede, Excel’de bu işi halletmenin yöntemini paylaşacağım.
Başka bir sütun değerine göre satırları VBA ile tekrarla
Başka bir sütun değerine göre satırları Kutools for Excel ile tekrarla
Başka bir sütun değerine göre satırları VBA ile tekrarla
Burada, satırları Son Sütun değerlerine göre hızlıca yineleyebilen bir kodum var.
1. Microsoft Visual Basic for Applications penceresini etkinleştirmek için Alt + F11 tuşlarına basın.
2. Ekle > Modül seçeneğine 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ı tekrarla
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. F5 tuşuna basın; açılan iletişim kutusunda, satırların tekrarlanacağı sayı listesini seçin.
4. Tamam'a tıklayın; satırlar, seçili sütun değerine göre tekrarlanır.
Başka bir sütun değerine göre satırları Kutools for Excel ile tekrarla
VBA konusunda pek tecrübeli değilseniz, yalnızca iki adımda yinelenen satır ve sütunları temizleyebileceğiniz Kutools for Excel’in Yinelenen Satır/Sütunları Hücre Değerine Göre özelliğini deneyin!
1. Kutools > Ekle > Yinelenen Satır/Sütunları Hücre Değerine Göre seçeneğine tıklayın.
2. Açılan iletişim kutusunda, Satır Kopyala ve Ekle seçeneğini Tür bölümünde seçin; ardından tekrarlamak istediğiniz aralığı Aralık Ekle metin kutusuna girin ve tekrarlama sayısını belirleyen sütunu Tekrarlama Sayısı metin kutusuna seçin. Son olarak, Tamam'a tıklayın.
Daha sonra satırlar, seçili sütuna göre tekrarlanacaktır.
En İyi Office Verimlilik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve hiç olmadığı kadar verimli çalışmanın keyfini çıkarın.Kutools for Excel, verimliliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel ve PowerPoint içinde sekmeli düzenleme ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileri ile Office Tab Pro’yu içerir; bu da Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— dakikalar içinde hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı verimlilik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— tek tek eklenti satın almak yerine tasarruf edin