excel vba obtener valores distintos de array ejemplo de código

Te doy la bienvenida a nuestro sitio web, aquí vas a hallar la resolución de lo que buscas.

Ejemplo: excel vba obtener valores únicos de array

Function DistinctVals(a,Optional col =1)Dim i&, v: v = a
    With CreateObject("Scripting.Dictionary")For i =1To UBound(v):.Item(v(i, col))=1:Next
        DistinctVals = Application.Transpose(.Keys)EndWithEndFunction'-----------------------------------------------------------------------'If you happen to have Office365, the above function can be shortened'to make use of the Office365 worksheet function 'UNIQUE()' instead 'of the dictionary:Function DistinctVals(r As Range)
  DistinctVals = WorksheetFunction.Unique(r)EndFunction

Aquí puedes ver las comentarios y valoraciones de los lectores

---

---

Utiliza Nuestro Buscador