Macro para extraer los valores únicos en Excel

0



 Código:


Sub ValoresUnicos()

Dim L As Range, U As Range, i As Long, j As Long, dict As Object

Set L = Application.InputBox(Prompt:="Rango de datos:", Title:="Aprendiendo eXcel365", Type:=8)

Set U = Application.InputBox(Prompt:="Celda destino:", Title:="Aprendiendo eXcel365", Type:=8)

Set dict = CreateObject("Scripting.Dictionary")

For i = 1 To L.Rows.Count

    For j = 1 To L.Columns.Count

        If Not dict.Exists(L(i, j).Value) Then

            dict.Add L(i, j).Value, 0

        End If

    Next j

Next i

U.Resize(dict.Count, 1).Value = Application.Transpose(dict.Keys)

End Sub

Entradas que pueden interesarte

Entradas más recientes Entradas antiguas

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel