Excel如何通过vba代码将非重复值提取到数组中来代替？

暗淡？啊？brr，？crr(1？去哪？70),?b？作为？布尔代数学体系的

b？=?错误的

暗淡？x%？x？=?1

arr？=?ActiveSheet。范围(单元格(1，1),?细胞(70，1))

brr？=?ActiveSheet。范围(单元格(1，2),?细胞(70，2))

为了什么？我？=?1?去哪？UBound(arr，1)

为了什么？j？=?1?去哪？UBound(brr，1)

如果？arr(我，？1)?=?brr(j，？1)?然后呢？b？=?真实:？退出？为

然后

如果？b？=?假的？然后呢？crr(x)？=?arr(我，？1):?x？=?x？+?1

b？=?错误的

然后

ActiveSheet。单元格(1，？3).调整大小(x？-?1,?1)?=?申请。转置