' Returns True if an array contains duplicate values' it works with arrays of any typeFunction HasDuplicateValues(arr As Variant) As Boolean Dim col As Collection, index As Long Set col = New Collection ' assume that the array contains duplicates HasDuplicateValues = True On Error GoTo FoundDuplicates For index = LBound(arr) To UBound(arr) ' build the key using the array element ' an error occurs if the key already exists col.Add 0, CStr(arr(index)) Next ' if control comes here, the array doesn't contain ' any duplicate values, so we can return zero HasDuplicateValues = False FoundDuplicates:End Function
Scientists Dimming the Sun: It’s a Good Thing
Johannah Lopez
September 22, 2023
Scientists at the University of Bern have been exploring geoengineering methods that could potentially slow down the melting of the West Antarctic ice sheet by
