Dim?dic,i,v,k1,k2,k,arr
Set?dic?=?CreateObject("scripting.dictionary")
For?i?=?2?To?Range("A65536").End(3).Row
k1=Cells(i,?2).Value
v?=Cells(i,?3).Value
k2=Cells(i,?4).Value
k=k1?&?chr(9)?&?k2
dic(k)?=?dic(k)?&?v
Next?i
i=2
for?each?k?in?dic.keys
arr=split(k,chr(9))
k1=arr(0)
k2=arr(1)
v=dic(k)
cells(i,6)=i-1
cells(i,7)=k1
cells(i,8)=v
cells(i,9)=k2
i=i+1
next?k
End?Sub