Foro Excel

Hola:

Tengo un archivo que contiene una columna con palabras, las cuales en algunos casos pueden llevar caracteres que no son letras, como signos de puntuación, interrogación, exclamación, etc

Ejemplo
árboles,
positivamente;
seguro?
maravilloso!
siguientes:

Cómo puedo hacer para eliminar esos signos y que me queden sólo las palabras?
No conseguí­ una función que lo haga. Si sólo fueran 4 signos, "texto en columnas" harí­a el trabajo, pero son muchos por ejemplo, ;:.?¿!¡"(<, etc.

Muchas gracias por la ayuda,

Saludos,

Faguebaz

Prueba con esta función, si necesitas mas signos solo agrégalos en el código y listo.

Código: Seleccionar todo

Function LimpiarTexto(Texto As String)
    Dim RegExp As Object
    Set RegExp = CreateObject("vbscript.regexp")
    With RegExp
        .Pattern = "['.""*/:<>?\\|]"
        .Global = True
        LimpiarNombre = .Replace(Texto, "")
    End With
End Function

Saludos

Segun parece SAILE me ha ganado de mano, asi que aqui mi version con una UDF.

Código: Seleccionar todo

Public Function DepuraTexto(impura As String) As String
Dim trans As String, LETRA As String, CARACT As Byte, i As Long


For i = 1 To Len(impura)
LETRA = UCase(Mid(impura, i, 1))
CARACT = Asc(LETRA)

trans = trans & IIf(CARACT > 64 And CARACT < 91, Mid(impura, i, 1), "")
Next i
DepuraTexto = trans

End Function

un pequeño "lapsus scripturae" en la UDF de SAILE...., donde dice LimpiarNombre deberia decir LimpiarTexto

Aprovechándome un poco de la idea de SAILE, pero sin vbsscript

Código: Seleccionar todo

Function LimpiarCadena(Texto As String) As String
Dim i As Integer, Patern As String, CARACT As String, Trans As String

Patern = "['.""&%*/:<>?\\|]"
Trans = Texto
For i = 1 To Len(Texto)
    CARACT = Mid(Texto, i, 1)
    If InStr(1, Patern, CARACT) Then Trans = Replace(Trans, CARACT, "")
Next i
LimpiarCadena = Trans

End Function

+ que magnificas las aportaciones ...
ahora yo quisiera aprovecharme del teacher Gali para que 'nos retocara' su 1ª funcií²n ya que no contempla las letras con acentos y a decir verdad ahorita estoy como bebito....--> mi cpu no da una
bueno ya me arrepenti,jeje solo hay que incluir el caracter 193 =í€ ...y listo (tome los datos de ejemplo de faguebaz)

Hola:

Muchas Gracias por la respuesta. Dime por favor, donde debo colocar esta función para que trabaje. Me llama la atención que en su sintaxis no veo cómo indicarle en cual columna debe mirar para hacer lo que necesito.

Muchas Gracias,

Faguebaz

Me comí­ los acentos. En sí­ se trata de algo bastante "lógico", es decir: "ME TILDí‰ CON LAS TILDES".

Bueno. ahora como para arreglarla solo se me ocurre un "patch"

Código: Seleccionar todo

Trans = Trans & IIf((CARACT > 64 And CARACT < 91) Or (CARACT > 91 And CARACT > 222), Mid(impura, i, 1), "")

Sin embargo, quedan en ese intervalo algunos caracteres que bien podrí­an ser usados como SIGNOS no alfabéticos (me refiero al alfabeto con cuna en Valladolid), pero bueno será, en ese supuesto, necesario agregar más Cases o bien plantear un Select Case. Ahora bien, cuantas más inclusiones o exclusiones se convengan habrá que ir pensando en las otras dos opciones (SAILE y 2da mia)

Hola faguebaz

Copia la fución en un módulo (si usas la de sailepaty, recuerda hacer la correción que anota Gali), después si lo que quieres es limpiar la celda A1, en B1 escribes =LimpiarTexto(A1) si usas la función de sailepaty o =DepuraTexto(A1) si es la de Gali.

En caso de que sólo te interese el texto limpio, copia B1 y pegas como valores en A1, luego eliminas B1.

La función opera como cualquiera de las "nativas" puedes hacer copias realativas o usarla con macros.

Un saludo desde Vitoria

Perdon, se me dio vuelta un operador comparativo

Código: Seleccionar todo

Trans = Trans & IIf((CARACT > 64 And CARACT < 91) Or (CARACT > 91 And [b]CARACT < 222[/b]), Mid(impura, i, 1), "")

Muchas Gracias ioyama por el invaluable dato final,:

Ambas versiones funcionan perfectamente.

Así­ que muchas gracias a TODOS,

Saludos,

faguebaz

En todo caso, la funcion con RegExp deberia ser veces mas rapida que la del bucle, pero igual me equivoco