Excel 怎麽改 用vba代碼提取不重復值為數組

前兩天正好找到這樣壹段代碼，借妳用壹下

Dim?arr,?brr,?crr(1?To?70),?b?As?Boolean

b?=?False

Dim?x%:?x?=?1

arr?=?ActiveSheet.Range(Cells(1,?1),?Cells(70,?1))

brr?=?ActiveSheet.Range(Cells(1,?2),?Cells(70,?2))

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

For?j?=?1?To?UBound(brr,?1)

If?arr(i,?1)?=?brr(j,?1)?Then?b?=?True:?Exit?For

Next

If?b?=?False?Then?crr(x)?=?arr(i,?1):?x?=?x?+?1

b?=?False

Next

ActiveSheet.Cells(1,?3).Resize(x?-?1,?1)?=?Application.Transpose(crr)