Entradas

Mostrando las entradas con la etiqueta Extraer valores únicos de una columna en Excel

¿Por qué algunos países prosperan y otros no? Confianza social, tecnología y desarrollo

Imagen
Confianza social, tecnología y desarrollo: ¿por qué algunos países prosperan y otros no? En los últimos años he tenido la oportunidad de visitar varios países que han marcado profundamente mi forma de ver el desarrollo económico. He estado en Japón y visité Hiroshima, una ciudad que fue destruida por una bomba atómica y que hoy es una ciudad moderna y ordenada. También visité Corea del Sur, un país que hace pocas décadas era uno de los más pobres del mundo y que hoy es líder en tecnología e innovación. Y he visto Alemania, que después de dos guerras mundiales logró reconstruirse y convertirse nuevamente en una de las economías más fuertes del mundo. Estas experiencias generan una pregunta inevitable: ¿por qué algunos países logran reconstruirse y prosperar incluso después de enormes crisis, mientras que otras regiones con grandes recursos naturales siguen enfrentando dificultades para desarrollarse? Una posible respuesta está en un concepto muy estudiado en economía...

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

Imagen
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:=Colum...

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