Método de deduplicación del diccionario VBA

Dim?dic,i,v,k1,k2,k,arr

Set?dic?=?CreateObject("scripting.dictionary")

For?i?=?2?To?Range("A65536").End(3).Row

k1=Celdas(i,?2).Value

v?=Celdas(i,?3).Valor

k2=Celdas(i,?4).Valor

k=k1?&?chr(9) ? &?k2

dic(k)? =?dic(k)? &?v

¿Siguiente?i

i=2

para?cada?k?in?dic.keys

arr=split(k,chr(9))

k1=arr(0)

k2=arr(1)

v=dic( k)

celdas(i,6)=i-1

celdas(i,7 )=k1

celdas(i,8)=v

celdas(i,9)=k2

i=i+1

siguiente?k

Fin?