División automática de texto por el separador especificado

GETSUBSTR() Descripción

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

VBA código para la macro

Para agregar una macro, abra el editor Visual Basic (Alt+F11), insertar un nuevo módulo de software vacío (Insert - Module) y copie el texto de esta función allí:

Function GETSUBSTR(Txt, Delimiter, n) As String
   'moonexcel.com.ua
   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_secuencia_del_fragmento) 

dónde:

• texto - el texto de la celda de la que planeamos extraer fragmentos;
• divisor - el símbolo por el cual dividiremos el texto;
• número de secuencia del fragmento - un número que mostrará qué fragmento en orden queremos obtener.

Artículos sobre el tema:

• Dividir el texto en varias columnas.
• Extrayendo parte de los caracteres del texto (LEFT, RIGHT, MID)
• Concatenación de texto de diferentes celdas (CONCATENATE)
• Concatenación de texto por condición (CONCATIF)