Excel funzione liste univoche

Liste univoque

Laexcelpillssmall seguente macro permette di creare liste univoche

dato un certo range specificato e un numero che definisce

la posizione (1,2,3...) restituisce una lista univoca.

Function UniqueList(rng As Range, Pos As Long) As String

Dim List() As String

Dim cell As Range

Dim i As Long

Dim t As Long

i = 0

ReDim List(rng.Cells.Count) As String

For Each cell In rng

flag = 0

For t = LBound(List) To UBound(List)

If cell.Value = List(t) Then

flag = 1

Exit For

End If

Next

If flag = 0 Then

List(i) = cell.Value

i = i + 1

End If

Next

UniqueList = List(Pos)

End Function


excelfile: