🏎️ GP de Austria 2026: ¿Quién ganó, quién remontó y quién abandonó?

Imagen
Gran Premio de Austria 2026: análisis de posiciones, remontadas y abandonos con Python El Gran Premio de Austria 2026 nos dejó una carrera con cambios importantes de posiciones, remontadas y cuatro abandonos. En este análisis utilizamos Python y datos obtenidos mediante una API de Fórmula 1 para estudiar qué pilotos ganaron posiciones, quién perdió más lugares desde la largada y qué pilotos no pudieron completar la carrera. Este análisis forma parte de nuestra serie de Sport Analytics de Fórmula 1 , donde utilizamos datos para descubrir historias interesantes dentro de las carreras. 📡 Fuente de datos: API de Fórmula 1 Para obtener los datos utilizamos la API de Fórmula 1 disponible a través de RapidAPI . La API utilizada fue: api-formula-1.p.rapidapi.com Primero consultamos las carreras de la temporada 2026 mediante el endpoint: /races?season=2026 A partir de esta consulta identificamos el Gran Premio de Austria 2026 . El identificador de la carrera f...

Macro de Excel para abrir archivo csv

Hay veces que quieres abrir un archivo de Excel pero está separado por comas, punto y coma o por un pipe. Hay formas de hacerlos desde Excel. Les quiero compartir algunas opciones de como hacerlo y espero que les sean de utilidad.

1.Es abrir el archivo en Excel y utilizar la función de separar por columnas y seleccionar el delimitador, por ejemplo ";"






2. Es colocar "sep=;" en el primer renglón del archivo que quieres abrir y guardar en formato CSV y abrirlo en Excel y te lo abrirá separado en columnas.




3. Otra forma es con una macro, esté en mi gusto es la que más me funciona porque si hay alguna coma en la descripción o en alguna columna, si lo abres desde Excel te va a desacomodar las columnas. 

Este botón te abrirá un pantalla para abrir el archivo que quieres separar y te lo abrirá en una hoja de excel ya separado.

El código de la macro es el siguiente 
Private Sub CommandButton1_Click()

Dim sht As Worksheet
Dim fnd As Variant
Dim rplc As Variant
Dim wb As Workbook
  
  strArchivo = Application.GetOpenFilename
  If strArchivo = False Then Exit Sub
  Workbooks.OpenText fileName:=strArchivo
  
  Set wb = Workbooks.Open(strArchivo)
  
  fnd = ","
  rplc = " "

  Set sht = wb.Sheets(1)

 'Replace comma
 sht.Cells.Replace what:=fnd, Replacement:=rplc, _
 LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
 SearchFormat:=False, ReplaceFormat:=False
  
  
 sht.Columns("A:A").Select
 Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
 TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
 Semicolon:=True, Comma:=False, Space:=False, Other:=False


End Sub

Si les gustaría ver un vídeo dejen sus comentarios.

Espero les sea de utilidad y nos compartan 🤗😁

Comentarios

  1. Gracias por compartir, me fue util en un desarrollo personal..

    ResponderBorrar
    Respuestas
    1. Hola que bueno que te ayudó 👍, gracias por visitarnos y dejar tu comentario

      Borrar
  2. Buen día, muy buen aporte. Muchas gracias.
    Aunque solo elimina las comas, no separa las palabras en columnas. ¿Cómo se podría hacer?

    ResponderBorrar

Publicar un comentario

Dejanos tus dudas y 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

👉 Cómo obtener el tipo de cambio en Excel con API de Banxico (paso a paso)

Cómo crear un Predictor de Partidos de Fútbol con JavaScript y API-Football