Få ut unika tal ur en matris

[soreby]

Hej!

 

Om jag har en matris med massa nummer i, inklusive många dubletter, hur kan jag få ut en lista med de "unika" talen då? Jag har läst in talen i en array, men har fastnat i tankearbetet. Finns någon inbyggd funktion i excel för att lösa detta annars?

 

//Stefan

 

[Monshi]

Tja, ett sätt är att skriva ut dem på ett blad och applicera avancerat filter men det kanske är att gå över ån för vatten.

 

Så som jag brukar göra det är att skapa ett Dictionary-objekt i stil med (inklusive testrutin)

Function UnikaVärden(arr As Variant) As Variant
   Dim myDict As Object
   Set myDict = CreateObject("Scripting.Dictionary")
   Dim myObj As Variant
   For Each myObj In arr
       If Not myDict.Exists(myObj) Then
           myDict.Add myObj, myObj
       End If
   Next myObj
   UnikaVärden = myDict.Keys
End Function

Sub tester()
   Dim myArr As Variant
   Dim test
   myArr = Array(1, 2, 3, 1, 1, 2, 3, 4, 5)
   Dim s As String
   test = UnikaVärden(myArr)
   Dim o As Variant
   For Each o In test
       s = s & o & ", "
   Next o
   MsgBox s
End Sub

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

[soreby]

Tackar, skall genast testa!