Use a Collection to Filter out Duplicate Values

Use a Collection to Filter out Duplicate Values

This code illustrates how to use a Collection to automatically generate a unique set of values from a set of datacontaining duplicates. In this example, scan a string array and sort all unique items using a list-box control:

 Sub Remove_Duplicates(arr() As String)        Dim i As Long        Dim RawData As String        Dim DataValues As New Collection        On Error Resume Next        ' Specifically to ignore run-time         ' error 457 - Duplicate key        For i = LBound(arr) To UBound(arr)                RawData = arr(i)                DataValues.Add RawData, RawData                ' If Run-time error 457 occurs,                 ' Duplicate key is ignored        Next         On Error GoTo 0        ' Store in List Box         ' (with Sorted property set to True)        lstSortedData.Clear        For Each DataValue In DataValues                lstSortedData.AddItem DataValue        NextEnd Sub
See also  How to Block Websites During Certain Hours on a Mac Computer

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist