TOP

División automática de texto por el separador dado (SPLITUP)

A continuación encontrará una función que le ayudará a dividir el texto en partes según el separador especificado.

Para hacer esto, abra el editor Visual Basic (Alt+F11), inserte un nuevo módulo de software vacío (Insert - Module) y copia allí el texto de esta función:

Function SPLITUP(Txt, Delimiter, n) As String
   Dim x As Variant
      x = Split(Txt, Delimiter)
      If n > 0 And n - 1 <= UBound(x) Then
        SPLITUP = x(n - 1)
      Else
        SPLITUP = ""
      End If
End Function

Guarde y regrese a Excel. Ahora, en funciones personalizadas, puede encontrar nuestra función SPLITUP().

SPLITUP (texto; separador; número de secuencia del fragmento) , dónde:

Artículos sobre el tema: