Excel macro - Select unique list

[wwj]

Code: Select all

    outSheet = "K"

    stdWorkbook = ActiveWorkbook.Name
    
    Worksheets(outSheet).Select
    Worksheets(outSheet).Activate
    
    For i = 1 To 28
    
        col = i * 2
        Range(Columns(col), Columns(col)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
            Columns(col + 1), Unique:=True
        
    Next i