Extract unique values from range

Not sure if this is what you mean...

Option Explicit

Sub esbencito()
Dim Val, i As Long, L(1 To 3) As String
Application.ScreenUpdating = False
With Sheet1.UsedRange.Rows
    Range(.Cells(1, 1), .Cells(.Count, 1)).AdvancedFilter xlFilterCopy, , .Range("C1"), True
    Range(.Cells(2, 3), .Cells(.Count, 3)).Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlNo
    With .Range("C1").CurrentRegion:  Val = .Value:  .Clear:  End With
    For i = 2 To UBound(Val)
        L(i - 1) = Val(i, 1)
        Debug.Print L(i - 1)
    Next i
End With
Application.ScreenUpdating = True
End Sub

hmm... this doesn't seem to be feasible in my data set as I am already using a filter. Also, I need to assign the 3 values to 3 different variables as I am using it for something else within my code.

Try to use formula
Enter in B2 and copy down

Formula:

=IFERROR(INDEX(A$2:A$9,MATCH(0,INDEX(COUNTIF(B$1:B1,A$2:A$9),,),)),"")

v	A	B
1
2	SS17	SS17
3	SS17	SS18
4	SS17	SS19
5	SS18
6	SS18
7	SS18
8	SS19
9	SS19

Originally Posted by AlKey

Try to use formula
Enter in B2 and copy down

Formula:

=IFERROR(INDEX(A$2:A$9,MATCH(0,INDEX(COUNTIF(B$1:B1,A$2:A$9),,),)),"")

v	A	B
1
2	SS17	SS17
3	SS17	SS18
4	SS17	SS19
5	SS18
6	SS18
7	SS18
8	SS19
9	SS19

*deleted.. apologies

Option Explicit
Sub Macro1()
    Dim LR As Long
    Dim Codes As Variant
    LR = Sheets("recap").Cells(Rows.Count, "C").End(xlUp).Row
    Range("AB2").EntireColumn.ClearContents

    Range("C1").Resize(RowSize:=LR).AdvancedFilter _
        Action:=xlFilterCopy, _
        CopyToRange:=Range("AB2"), _
        Unique:=True
        
    Range("AB2").Select
    Selection.Delete _
        Shift:=xlUp
        
    Codes = WorksheetFunction.Transpose(Range("AB2:AB4").Value)
    Range("AB2").EntireColumn.ClearContents
End Sub

hmm... this doesn't seem to be feasible in my data set

Obviously you would have had to make changes to accommodate your data set

Option Explicit

Sub esbencito()
Dim Val, i As Long, L(1 To 3) As String
Application.ScreenUpdating = False
With Sheets("Recap").UsedRange.Rows
    Range(.Cells(1, 3), .Cells(.Count, 3)).AdvancedFilter xlFilterCopy, , .Range("AB1"), True
    Range(.Cells(2, 28), .Cells(.Count, 28)).Sort Key1:=Range("AB2"), Order1:=xlAscending, Header:=xlNo
    With .Range("AB1").CurrentRegion:  Val = .Value:  .Clear:  End With
    For i = 2 To UBound(Val)
        L(i - 1) = Val(i, 1)
        Debug.Print L(i - 1)
    Next i
End With
Application.ScreenUpdating = True
End Sub

Thanks all! I ended up with a mix of both solutions and it seems to work just fine!

Sub GetSeasonCodes()
    
    Dim LR As Long
    Dim SS_Codes As Variant
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    LR = Sheets("Recap").Cells(Rows.Count, Range("Attribute_SuperSeason").Column).End(xlUp).Row
    Sheets("Control").Range("A3").EntireColumn.ClearContents

    Sheets("Recap").Range("" & ColName(Range("Attribute_SuperSeason")) & "1").Resize(RowSize:=LR).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Control").Range("A3"), Unique:=True
        
    Sheets("Control").Range("A3").Delete Shift:=xlUp
    
    Sheets("Control").Range("A3:A10").Sort Key1:=Sheets("Control").Range("A3"), Order1:=xlAscending, Header:=xlNo
        
    SS_Codes = WorksheetFunction.Transpose(Sheets("Control").Range("A3:A5").Value)
    
    Sheets("Control").Range("A3").EntireColumn.ClearContents
    
    Sheets("Recap").Range(Sheets("Recap").Cells(1, 1), Sheets("Recap").Cells(1, Columns.Count)).AutoFilter
    
    MsgBox SS_Codes(1) & "   " & SS_Codes(2) & "   " & SS_Codes(3)
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

End Sub

Didn't know that the advanced filter method is common to use in VBA to find unique values. It's probably even a lot faster than some of the other array calculations...