VB检测数组中的重复元素

发布时间：2020-12-17 08:20:35 所属栏目：百科来源：网络整理

导读：'需要点击菜单：工程-引用-MicrosoftScriptingRuntime Public Function HasRepeat(ByRef arr() As String) As Boolean Dim dict As Dictionary Set dict = New Dictionary Dim i As Variant For Each i In arr If i "" Then If dict.Exists(i) Then HasRepea

'需要点击菜单：工程->引用->MicrosoftScriptingRuntime

Public Function HasRepeat(ByRef arr() As String) As Boolean
    Dim dict As Dictionary
    Set dict = New Dictionary
    Dim i As Variant
    For Each i In arr
        If i <> "" Then
            If dict.Exists(i) Then
                HasRepeat = True
                Exit Function
            Else
                dict.Add i,0
            End If
        End If
    Next
    HasRepeat = False
End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!