EXTRAER ELEMENTOS DE UNA CADENA DE TEXTO CON LA FUNCIÓN SPLIT. UTILIZAR FUNCIONES SPLIT ANIDADAS

Una de mis funciones preferidas cuando se trata de dividir texto y extraer elementos de una cadena es la función split (aquí toda la documentación que ofrece microsoft).

Por ejemplo, y de paso que estamos todos los padres con los asuntos del cole de los peques, una de las actividades de mi hija:

ACTIVIDADES ESCOLARES: DANZA CLÁSICA Y MODERNA. BALLET 2 DÍAS (LUNES – MIÉRCOLES)

Imaginad que la tenemos en la celda A2 y queremos extraer en las celdas adyacentes:

En B2: DANZA CLÁSICA Y MODERNA
En C2: BALLET 2 DÍAS
En D2: LUNES – MIÉRCOLES

Esto lo podemos conseguir utilizando únicamente la función Split ().

Este es el código:

Sub EJEM_SPLIT()
    Dim sCadena     As String
    With Sheets("Hoja1")
        sCadena = .Cells(2, 1)
        .Cells(2, 2) = Trim(Split(Split(sCadena, ":")(1), ".")(0))
        .Cells(2, 3) = Trim(Split(Split(sCadena, ".")(1), "(")(0))
        .Cells(2, 4) = Trim(Split(Split(sCadena, "(")(1), ")")(0))
    End With
End Sub

Como podéis observar estamos anidando varios split para extraer la información que nos conviene. Y el resultado obtenido es el que hemos buscado.

Utilizamos adicionalmente la función Trim para eliminar los espacios iniciales que quedan al aplicar la función.

Os recuerdo que os he dejado el link a la documentación de la función para que la podáis implementar en vuestros proyectos.

Estos mismos resultados los podéis obtener combinando otras funciones como hallar y largo, las típicas que se usan para separar el nombre y los apellidos.

Espero que os sea de utilidad!.

¿Te ha resultado de interés?, puedes apoyar a Excel Signum con una pequeña donación.



¡¡Muchas gracias!!

Mediante la suscripción al blog, la realización comentarios o el uso del formulario de contacto estás dando tu consentimiento expreso al tratamiento de los datos personales proporcionados según lo dispuesto en la ley vigente (LOPD). Tienes más información al respecto en esta página del blog: Política de Privacidad y Cookies