A continuación encontrará una función que le ayudará a dividir el texto en partes según el separador especificado.
Para agregar una macro, abra el editor Visual Basic (Alt+F11), insertar un nuevo módulo de programa vacío (Insert - Module) y copie allí el texto de esta función:
Function GETSUBSTR(Txt, Delimiter, n) As String Dim x As Variant x = Split(Txt, Delimiter) If n > 0 And n - 1 <= UBound(x) Then GETSUBSTR = x(n - 1) Else GETSUBSTR = "" End If End Function
Guarde y regrese a Excel. Ahora, en funciones personalizadas, puede encontrar nuestra función GETSUBSTR().
GETSUBSTR(texto; delimitador; número de secuencia del fragmento)
dónde: