Araya Satır İlave Etmek

[soykan]

Değerli Üstatlar,

Ahmet
Ahmet
Ahmet
Ahmet
Mehmet
Mehmet
Mustafa
Mustafa
Mustafa

A sütununda yukarıdaki gibi datalarım var. Her isim değiştiğinde araya satır ilave etmek istiyorum nasıl yapabirim?

Teşekkürler.

 

[zafer]

Merhaba


Aşağıdaki kodları kullanabilirsiniz.
A sütunu olarak planlanmıştır

Sub TEK_SATIR_EKLE()
son = Cells(65536, 1).End(xlUp).Row
For i = son To 2 Step -1

If Cells(i - 1, 1).Value <> Cells(i, 1).Value Then
Rows(i).Insert
End If
Next
End Sub

 

[soykan]

Çok Teşekkürler, elinize sağlık.