Just nu i M3-nätverket
Gå till innehåll
soreby

Få ut unika tal ur en matris

Rekommendera Poster

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

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

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.

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...