當前位置:成語大全網 - 新華字典 - VBA怎麽用字典判斷壹個區域(A1:B60000)中有沒有重復值

VBA怎麽用字典判斷壹個區域(A1:B60000)中有沒有重復值

妳運行壹下看,測試無關題:

Sub?aaa()

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

Dim?x,?arr

arr?=?Range("a1:b60000")

For?x?=?1?To?UBound(arr)

For?y?=?1?To?2

On?Error?Resume?Next

D.Add?arr(x,?y),?""'這個因為有重復,要出錯,所以要加上On?Error?Resume?Next

'?D(arr(x,?1))?=?""?'直接用修改的方式,錯語就自動覆蓋

Next

Next

If?Application.Count(arr)?>?Application.Count(D.keys)?Then

MsgBox?"有重復"

Else

MsgBox?"無重復"

End?If

'?Range("c1").Resize(D.Count)?=?Application.Transpose(D.keys)?'練習的COMBX1增加

End?Sub