Check for duplicates in an array
I've been looking around for this code and no one could provide it. So finally I wrote it. It checks for duplicates in an array and returns true if there are any.
Public Function AnyDup(NumList As Variant) As Boolean
Dim a As Long, b As Long
'Start the first loop
For a = LBound(NumList) To UBound(NumList)
'Start the second loop (thanks for the suggestions everyone)
For b = a + 1 To UBound(NumList)
'Check if the values are the same. if they're equal, then we found a duplicate
' tell the user and end the function
If NumList(a) = NumList(b) Then AnyDup = True: Exit Function
Next
Next
End Function
Special Instructions
Side Effects: If used with LARGE (and I mean LARGE as in arrays with hundreds or thousands of items) it will slow down. USE WITH ONE DIMENSIONAL ARRAYS
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.