[excel]duplikati

jaz imam manjsi problem imam en primitiven makro za brisanje duplikatov, sedaj bi ga pa rad sfriziral. v cem je problem. imam zelo veliko tabelo z imeni in naslovi. toda ena oseba ima vec naslovov, in en naslov je bolj pomemeben k drug.za dolocen seznam pa rabim samo en naslov ene osebe. torej kako bi se dalo prirediti moj makro tako, da bi najprej poiskal duplikat potem pa zbrisal tistega,ki bi bil npr. imel v stolpcu A oznako 2 in pustil tistega z oznako 1. z ciframi bi jaz oznacil pomembnost, ce pa ima kdo drugo idejo pa prosim. moj makro je, ki pa sedaj zbrise vse duplikate in ne mores locevati po pomembnosti :

Sub TestForDups()
Dim LLoop As Integer
Dim LTestLoop As Integer
Dim Lrows As Integer
Dim LRange As String
Dim LCnt As Integer
'Column values
Dim LColA_1, LColB_1, LColC_1 As String
Dim LColA_2, LColB_2, LColC_2 As String
'Test first 2000 rows in spreadsheet for duplicates (delete any duplicates found)
Lrows = 2000
LLoop = 2
LCnt = 0
'Check first 2000 rows in spreadsheet
While LLoop < = Lrows
LColA_1 = "A" & CStr(LLoop)
LColB_1 = "B" & CStr(LLoop)
LColC_1 = "C" & CStr(LLoop)

If Len(Range(LColA_1).Value) > 0 Then
'Test each value for uniqueness
LTestLoop = LLoop + 1
While LTestLoop < = Lrows
If LLoop < > LTestLoop Then
LColA_2 = "A" & CStr(LTestLoop)
LColB_2 = "B" & CStr(LTestLoop)
LColC_2 = "C" & CStr(LTestLoop)

'Value has been duplicated in another cell (based on values in columns A to H)
If (Range(LColA_1).Value = Range(LColA_2).Value) _
And (Range(LColB_1).Value = Range(LColB_2).Value) _
And (Range(LColC_1).Value = Range(LColC_2).Value) Then
'Delete the duplicate
Rows(CStr(LTestLoop) & ":" & CStr(LTestLoop)).Select
Selection.Delete Shift:=xlUp
'Decrement counter since row was deleted
LTestLoop = LTestLoop - 1
LCnt = LCnt + 1
End If
End If
LTestLoop = LTestLoop + 1
Wend
End If
LLoop = LLoop + 1
Wend
'Reposition back on cell A1
Range("A1").Select
MsgBox CStr(LCnt) & " rows have been deleted."
End Sub

hvala,zadeva skoraj pravilno deluje, zdej imam samo se eno zeljo, a bi se delo tudi to dvojko zbrisat. torej da bi na koncu ostal samo en zapis in to ta z oznako 1. vse dvojke bi se pa zbrisale.

zal ne zbrise vseh se zmeri ostane 1 in 2

evo primer kako tabela kao izgleda, in kako bi mogla izgledat

prvotna tabela
1 mirko st 1
2 mirko st 2
2 mirko re 3
1 mirko et 4
1 er er 5
1 mirko re 6
1 mirko we 7
1 mirko tz 8
2 mirko we 9
2 mirko st 10
2 mirko st 11

to naredi makro
1 mirko st 1
2 mirko st 2
2 mirko re 3
1 mirko et 4
1 er er 5
1 mirko re 6
1 mirko we 7
1 mirko tz 8
2 mirko we 9


tako pa naj bi zgledalo
1 mirko st 1
1 mirko et 4
1 er er 5
1 mirko re 6
1 mirko we 7
1 mirko tz 8

sem probu pa ne dela.
samo bistvo je da išče tud duplikate saj so imena in primeki podvojeni. te cifre so pa zato da se ve ker nslov je bolj pomemben.in tist k ma stevilko je bolj pomemben zato moramo na ta naslov poslat posto.
lp