Aynı olan verilerden bir tanesi kaçacak şekilde nasıl silebilirim?

[kratos06]

MERHABALAR SIRALI AYNI NUMARADA KAYDI OLAN ÖĞRENCİLERİN BİR TANESİ HARİÇ DİĞERLERİN HÜCRE İÇİNİ OTAMATİK OLARAK NASIL BOŞALTIRIZ.
ÖRNEK:
01020020 Ali Görkem Fizik
01020020 Ali Görkem Matematik
01020020 Ali Görkem Biyoloji
01020032 Veli Durmuş Matematik
01020032 Veli Durmuş Biyolojii
01020032 Veli Durmuş Matematik
01020032 Veli Durmuş Biyoloji

olması gereken;
01020020 Ali Görkem Fizik
Ali Görkem Matematik
Ali Görkem Biyoloji
01020032 Veli Durmuş Matematik
Veli Durmuş Biyolojii
Veli Durmuş Matematik
Veli Durmuş Biyoloji
kratos06 Çevrimiçi

 

[Necdet]

Merhaba,

Veri
Yinelenenleri kaldır

inceleyiniz.

 

[Murat OSMA]

Bu kodları kullanabilirsiniz..​

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    For i& = 1 To Range("A65536").End(3).Row
        If WorksheetFunction.CountIf(Range("A1:A" & i), _
        Cells(i, 1).Value) > 1 Then Cells(i, 1).Value = ""
    Next i
    i = Empty
End Sub[/SIZE][/FONT]

 

[PLİNT]

Merhaba
Alternatif olarak
Sanırım hücre içindeki (biri kalacak) rakamlar silinecek.

Private Sub CommandButton1_Click()
For a = Cells(Rows.Count, "a").End(3).Row To 2 Step -1
If Cells(a - 1, 1) <> "" Then
If Split(Cells(a, 1), " ")(0) = Split(Cells(a - 1, 1), " ")(0) Then
Cells(a, 1) = Replace(Cells(a, 1).Value, Split(Cells(a, 1), " ")(0) & " ", "")
End If
End If
Next
End Sub