Microsoft Office Forums - View Single Post - [Solved] Loop through cells and return only unique values

trevorc · 10-11-2018, 11:34 AM

Thanks, but after looking on the endless web I put together this.

Code:

   For Each rcell In Range("L4:L150")
        If rcell.Value Like "?*@?*.?*" Then
           next_cell_value = next_cell_value & "; " & rcell
           If InStr(next_cell_value, rcell) = 0 Then next_cell_value = next_cell_value & rcell & ";"
        End If
   Next rcell