Eliminar con macro carácter 160 en libros excel
On este código y algo más, quisiera que me abarcara TODO el libro, en ves de solo la B y A.
Tengo un código que funciona pero me parece que el amigo DAM sabe como hacerlo con una macro más corta de la que tengo y, prefiero las macros cortas siempre y cuando sean efectivas.
Gracias
Sub quitar()
'Por.Dante Amor
For i = 3 To Range("A" & Rows.Count).End(xlUp).Row
Cells(i, "B") = Replace(Cells(i, "A"), Chr(160), "")
Next
End Sub
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro, revisa todas las hojas y todas las celdas, pero solamente las que tienen algún dato en la celda y solamente las del rango utilizado, es decir, no revisa tooooodas las celdas de la hoja.
Sub quitar() 'Por.Dante Amor For Each hoja In Sheets hoja.Select For Each celda In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 23) celda.Value = Replace(celda.Value, Chr(160), "") Next Next End Sub
