Sütuna göre belirlenen satırları birleştirmek.

[tefon]

Arkadaşlar merhabalar,

Öncelikle herkese günaydınlar diliyorum. Benim elimde 3 sutundan oluşan bir EXCEL dosyası mevcut.

A sutunu boş B C ve D sutunlarında ise veriler mevcut.

A-------B---------C----------D
Boş / Ahmet / 10190 / adres-verisi
Boş / Mehmet / mavi / adres-verisi
Boş / Alican / yeşil / adres-verisi
Boş / Murat / mavi / adres-verisi
Boş / Yüksel / 10190 / adres-verisi

Benim istediğim ise C sutununa göre benzer kayıtları bularak bir tanesini silmek. Verdiğim örneğe göre şu şekilde olmasını istiyorum.

A-------B---------C----------D
Boş / Ahmet / 10190 / adres-verisi
Boş / Mehmet / mavi / adres-verisi
Boş / Alican / yeşil / adres-verisi

Bununla ilgili nasıl bir yol izleyebilirim? Yardımlarınız için şimdiden çok teşekkür ederim.

 

[uzmanamele]

Merhaba

Bu kodu deneyiniz.
1. satırın sütun başlığı içerdiği düşünülmüştür.

Sub mükerrer_sil()
For i = Range("C65536").End(3).Row To 2 Step -1
say = Application.WorksheetFunction.CountIf(Range("C:C"), Cells(i, "C").Text)
If say > 1 Then
Rows(i).Delete
End If
Next
End Sub

Ya da; E2 hücreye aşağıdaki formülü yazıp sütun boyunca kopyalayın.
Sonra E sütununa filtre uygulayarak 1 olanları seçin.

=+EĞERSAY($C2:$C$2;C2)