Quitar blancos que se anteponen a la cadena de caracteres que interesa en Excel

M?a de Santiago
25 de Abril del 2006
Por favor si alguien me puede ayudar. Me entregan en Excel una base de datos que se extrajo de un sistema. Para trabajar estos datos en Excel me encuentro con el problema que las celdas con información alfanumérica (por ej nombres, direcciones etc), traen una cantidad “variable” (entre 0 y 3) de espacios en blanco antecediendo al texto lo cual no me permite filtrar ni ordenar debidamente.
Tengo la siguiente macro que me permite separar nombre y apellido cuando están juntos en una columna y dejarlos en columnas separadas:

Sub separa()
x = ActiveCell.Row
y = ActiveCell.Column
\'Esto que sigue, toma el nombre y lo lleva 2 cols a la derecha
Do While Cells(x, y).Value <> ""
Cells(x, y + 2).Value = "=MID(RC[-2],1,SEARCH("" "",RC[-2],1)-1)"
\'Para tomar el apellido y llevarlo 3 cols a la derecha
Cells(x, y + 3).Value = "=MID(RC[-3],SEARCH("" "",RC[-3],1)+1,20)"
x = x + 1
Loop
End Sub

Quería adaptarla pero veo que contrario a buscar el primer blanco que es lo que hago en esta macro, tengo que buscar el primer caracter “distinto” de blanco para conseguir contar los blancos que se anteponen y así extraerlos, pero no sé como indicarlo en la función search.

Edgarin
25 de Abril del 2006
Tu problema esta solucionado con la función LTRIM
cadena=LTRIM(cadena)
te quita los espacios a la izquierda
esto lo pones en tu macro. Para quitar los espacios de la derecha usa RTRIM

Saludos, desde La Paz-Bolivia