Satır aralarına boşluk verme

[Warner]

Merhaba arkadaşlar. Kolay gelsin.
A Sutunundaki aşağıya doğru sayılar mevcut. Bu sayılar peşpeşe aynı ve 6 satırda bir sayılar değişiyor.Sayılar her değiştiğinde bana bir satır boşluk vermesi gerekiyor.

ikisini ayırmak için arada boşluk olması gerekiyor.

Yardımcı olursanız sevinirim

Örnek;

6666
6666
6666
6666
7777
7777
7777
7777

 

[catalinastrap]

kodu deneyiniz

Sub ozgur()

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).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End If

Next
[a1].Select

End Sub

 

[catalinastrap]

ekte bir test yaptım

Umarım işinizi çözer.

 

[Warner]

çok teşekkür ederim. işim görüldü.emeğinize sağlık

 

[catalinastrap]

rica ederim.
İyi çalışmalar