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博客 ” ，链接：https://blog.itpub.net/8765687/viewspace-1409001/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
没有了~
下一篇：
没有了~
请登录后发表评论
登录
全部评论
