Periyodik olarak satır ekleme

[bebar]

Merhaba;

A,B.C.D sütunumda 2500. satıra kadar giden benzersiz sıralı verilerim var fakat

ben her bir verinin bulunduğu satırın altına 22 boş satır açmak istiyorum ve E sütununda 23 adet olan aynı mağaza isimlerini yerleştirmek istiyorum.

Çalışmam ektedir. Teşekkür ederim.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. (Çalıştırmadan önce verilerinizi yedeklemeyi unutmayınız):

Sub ekle()
For i = Cells(Rows.Count, "D").End(3).Row To 25 Step -1
Rows(i + 1 & ":" & i + 22).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next
son = Cells(Rows.Count, "D").End(3).Row + 22
    Range("E2:E24").Select
    Selection.AutoFill Destination:=Range("E2:E" & son), Type:=xlFillDefault
    
End Sub

 

[bebar]

Hocam çok teşşekür ederim, çok büyük yardımınız oldu