excel de satırdaki veriler farklı ise araya satır ekleme

[altugtekin]

merhaba arkadaşlar,

elimde yaklaşık 1900 satırlık bir veri var. bu verilerde A sütununda kişi isimleri bulunuyor. örneğin alt alta 15 satır x kişisi sonra 20 satır y kişisi var. kişiler değiştikçe araya 3 satır boşluk eklemek için bir makro yazmam gerekiyor. yardımcı olur musunuz?

teşekkürler.

 

[YUSUF44]

Aşağıdaki kodları deneyiniz:

Sub ekle()
son = Cells(Rows.Count, 1).End(3).Row
For i = son To 2 Step -1

If Cells(i, 1) <> Cells(i - 1, 1) Then

    Rows(i & ":" & i + 2).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End If

Next
[a1].Select

End Sub

 

[altugtekin]

çok teşekkürler.

işime yaradı. elinize sağlık.