Quitar ultima palabra excel

Solicito de su colaboración con esto lo que necesito es quitarle a una cadena de texto la ultima palabra ejemplo: proceso productivo activo; solo quiero que quede proceso productivo, tengo varias cadenas de texto y no todas tienen el mismo largo ni la misma cantidad de espacios.

1

1 respuesta

Respuesta
1

En un rato te contesto

Por ejemplo si tenemos esa frase en la celda A1, posiciónate en esa celda y después ejecuta esta macro:

Sub ejemplo()
'por luismondelo
tope = Len(ActiveCell)
For x = 1 To tope + 1
extrae = Mid(ActiveCell, x, 1)
If extrae = " " Then
p = p + 1
lista = lista & "," & x
End If
Next
lista = Mid(lista, 2, Len(lista) - 1)
lista = Split(lista, ",")
posicion = lista(p - 1)
ActiveCell.Offset(0, 1).Value = Left(ActiveCell.Value, posicion - 1)
End Sub

hola experto

esto mismo no se puede realizar con una formula??

mil gracias

Lo podría hacer siempre y cuando la frase se componga del mismo número de palabras. Si no es así me quedo con la macro que además podríamos meter dentro de un bucle para hacerlo en una columna entera.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas