IA y Software: La Inteligencia Artificial como una aliada del desarrollo de software.

Imagen
¡Bienvenidos a una nueva publicación en Programación para Todos ! Hoy tenemos el honor de contar con la colaboración especial de la Mtra. Yareli Aburto Sánchez, especialista en Ciencias de la Computación y actual esta estudiando su doctorado en esta fascinante área. En esta entrega, Yareli nos comparte una mirada clara y actual sobre cómo la Inteligencia Artificial está revolucionando el desarrollo de software: desde herramientas que agilizan procesos hasta algoritmos que aprenden y evolucionan junto a nosotros. Si te interesa la programación y quieres entender cómo la IA puede convertirse en tu aliada, ¡este artículo es para ti!     En el mundo del desarrollo de software se está experimentando   una transformación digital impulsada por la Inteligencia Artificial (IA).   Desde la automatización de tareas hasta la mejora en la colaboración entre equipos, la incorporación de herramientas basadas en IA ha revolucionado la industria de desarrollo de software. En...

Macro de Excel para ordenar datos y obtener datos únicos de una columna o fila

Hola en esta ocasión les quiero compartir un ejemplo de una macro de Excel para poder ordenar datos de columnas y obtener los datos únicos de una columna.

Por ejemplo yo tengo un Archivo de Excel del que quiero obtener las fechas para poder obtener los datos y los mostrare en una columna, la pantalla de ejemplo se ve así




  • El primer caso es para obtener los fechas únicas de una columna y colocarlas en una columna

'select dates filas
    'Declaramos variables
    Dim fin As Long, i As Long, unicos As Variant, unicos2 As Variant
    With Sheets("InputFile")
        fin = Application.CountA(.Range("A:A"))
        unicos = WorksheetFunction.Unique(.Range("A1:A" & fin))
        'Obtenemos los datos de la matriz y los pasamos a una columna
        i = 0
        For i = LBound(unicos) To UBound(unicos)
            .Cells(i + 1, 5) = unicos(i, 1)
            Next i
        .Range("E2:E100").Select
        Selection.Columns.Sort key1:=Columns("E"), Order1:=xlAscending
    End With
  • Ahora obtener las fechas únicas pero de una fila y colocarlos en una columna
'select dates columnas
    With Sheets("InputFile")
        fin = 0
        unicos2 = WorksheetFunction.Unique(.Range("H1:AE1"))
        'Obtenemos los datos de la matriz y los pasamos a una columna
        i = 0
        For i = LBound(unicos) To UBound(unicos)
            If unicos2(i) <> Empty Then
                .Cells(i + 1, 6) = unicos2(i)
          End If
            Next i
        End With
    Worksheets("InputFile").Range("F2:F100").Select

    ' Sort column C, after column N and after column F
    Selection.Columns.Sort key1:=Columns("F"), Order1:=xlAscending
Blog de Programacion para todos


Como se ve el archivo después de correr la macro
Macro_unicos_ordenar datos Blog de programacion

Les comparto un video para ver cómo funciona la macro


Esta macro la probé en la versión Excel 2019 y Microsoft 365, espero les sea de utilidad y puedan aplicarla en su trabajo o en la escuela

Comentarios

🚀 Mantener este blog funcionando requiere tiempo y café. ¡Puedes contribuir con uno aquí!

Entradas más populares de este blog

Guía Práctica: Ejemplo Completo de ASPX para Desarrolladores Web

Macro de Excel para abrir archivo csv

📊 Automatiza tu trabajo: Convierte tablas de Word a Excel con una macro