EXCEL VBA 使用数组记录文本，并判断文本在数组中是否已经存在

Dim arr() '声明一个动态的arr数组(不知道它能盛多少数据)
Dim row_1 '声明数组大小的变量（通常是excel的有效行数）
row_1 = Sheet1.[B65536].End(xlUp).Row 'B列的有效行数
ReDim arr(1 To row_1) '设置数组大小
Dim CurrentarrIndex '声明数组里当前存放数据的位置
For i = 2 To row_1
    If InStr(1, Join(arr, ""), SSheet.Range("B" & i)) = 0 Then '判断单元格内的内容在数组中是否存在
        arr(CurrentarrIndex) = SSheet.Range("B" & i) '将内容加入数组中
        CurrentarrIndex = CurrentarrIndex + 1
    End If
Next

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8765687/viewspace-1409001/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8765687/viewspace-1409001/