vba表二使用區域所有非空單元格加入字典

Dim?d,?arr

arr?=?Sheet2.UsedRange

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

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

For?j?=?1?To?UBound(arr,?2)

If?arr(i,?j)?<>?""?Then?d(arr(i,?j))?=?""

Next

Next

End?Sub