Programación VBA: interceptación de cadenas después del posicionamiento

=FIND(" ",A1)

Extrae la cadena después del primer espacio

=MID(A1, FIND( " ", A1) 1. LEN(A1))

Utilice VBA para extraer el código de la siguiente manera

Sub extrae la cadena después del primer espacio ()

Atenuar T1 como cadena

Atenuar i mientras

T1 = Rango("A1").Valor

i = InStr(T1, " ") 'Encuentra la posición del primer espacio

Rango("B1") = Mid(T1, i 1, Len(T1)) 'Extrae la cadena después del primer espacio a la celda B1

End Sub

Si no hay espacios en los datos originales, este código extraerá todo.

Si es una columna de datos, simplemente agregue un bucle para completarla. Si la cantidad de datos es grande, se recomienda usar una matriz para completarla, lo que puede mejorar la velocidad de operación.