Sub test()Dim Myrange As RangeDim uniqueArray As VariantDim ii = Sheets("Sheet3").Cells(Rows.Count, 1).End(xlUp).Row Set Myrange = Sheets("Sheet3").Range("A1:A" & i) Dim myDic As Object Set myDic = CreateObject("Scripting.Dictionary") For …