Jump to content
alistair

Quitar letras de un tabla

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

Share this post


Link to post
Share on other sites

a ver  si con este te funciona @alistair

Sub quitar_letras()


Application.ScreenUpdating = False



With Worksheets("Hoja1").Range("D4:K" & Range("D65536").End(xlUp).Row)
.Replace What:="h", Replacement:=""
End With
Application.ScreenUpdating = True
End Sub

en mi equipo funciono

saludos isidro

Share this post


Link to post
Share on other sites
Sub quitar_letras()
Dim lColumn As Long
Application.ScreenUpdating = False

With Worksheets("Hoja2").Range("A2:iv" & Cells(Rows.Count, "iv").End(xlUp).Column)

.Replace What:="h", Replacement:=""

End With
Application.ScreenUpdating = True
End Sub

esta otra  solución

saludos

Share this post


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

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy