¿Cómo hizo VBA todo antes del primer texto?

Suponga que los datos están en la columna A y los resultados se almacenan en la columna b.

Sub xx()

Dimensiones i,j

Para i = 1 en el rango("A65536"). final (xlArriba). fila

Para j = 1 a Len(celda(I,1))

Si mid(celda(I,1),J,1) es como "*[una vez Sexo ] * "Entonces

Si j = 1 entonces

Ir a yy

Otro

Celda (I, 2) = izquierda( celda(I,1),j - 1)

Ir a yy

Finalizar si...

Otro

Será finalizar si...

Entonces

yy: siguiente

Finalizar conector