Jump to content

Quitar letras de un tabla


alistair

Recommended Posts

Hola

Una forma es la siguiente:

Dim x As Integer

Application.ScreenUpdating = False

For x = 58 To 165
    Worksheets("Hoja2").Range("A1:H73").Replace What:=Chr(x), Replacement:="", LookAt:=xlPart
Next x

Obviamente cambia el nombre y rango por el que tú necesites. Por  cierto, aquí reemplazo los caracteres Ascii del 58 al 165 por "nada", pero colocando un For más y/o aumentando el número de ese For, puedes reemplazar más:

Enlace Ascii

Comentas

Link to post
Share on other sites

Hola a todos

 

A la propuesta de Abraham, yo le agregaría un pequeño detalle que evita que desaparezca todo

Sub SinLetras()
Dim x As Integer

Application.ScreenUpdating = False

For x = 58 To 165
If x = 63 Then x = x + 1
    Worksheets("Hoja1").Range("A1:H73").Replace What:=Chr(x), Replacement:="", LookAt:=xlPart
Next x

End Sub

 

El caracter 63 y 42 son comodines en Excel, así que en este caso hay que evitarlos.

Por tanto, si el FOR empezara en 32, yo pondría esto

If x = 42 or x = 63 Then x = x + 1

 

Saludos

Servando Villalón

Link to post
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.


×
×
  • Create New...

Important Information

Privacy Policy