¿Cómo quito espacio en blanco en una hoja de excel?
Tengo un archivo de casi 500 números de esta forma 5468 2589 1456 9587 y demoro bastante en eliminar uno por uno, ya intente con reemplazar espacio por nada pero al termino me queda esto 1.5253E+15 y si lo visualizo en numero en la barra de fórmulas me cambia el ultimo numero por "0" y queda así 5468 2589 1456 9580 en todos, hicieron una macro para quitar espacios pero creo es lo mismo ya que trabaja de la misma manera. Podrían decirme como se quitan sin que el ultimo numero cambie a 0 por favor
Sub espacios()
'Por.dam
ufila = ActiveCell.SpecialCells(xlLastCell).Row
ucol = ActiveCell.SpecialCells(xlLastCell).Column
Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub '
2 Respuestas
La precisión numérica de Excel es de 15 dígitos, de ahí que el dígito 16º (y los posteriores, si los hubiera) sea convertido en un cero.
Si no necesitas operar numéricamente con los números, puedes usar una columna auxiliar y anteponer un apóstrofo para que Excel considere los números cadenas de texto. Suponiendo que los números comienzan en A1:
="'"&SUSTITUIR(A1;" ";"")
Saludos_
Un modo es agregando una comilla delante:
Sub texto_sin_espacios()
'x Elsamatilde
'trabaja sobre la col H --- coloca aquí tu rango
For Each cd In Range("H1:H10")
cd.Value = "'" & cd.Value
cd.Replace What:=" ", Replacement:=""
Next cd
End SubSi esto resuelve tu problema no olvides valorar la respuesta para darla por cerrada, sino comenta.