當前位置:成語大全網 - 新華字典 - VBA 字典法去重

VBA 字典法去重

Sub?m()

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