Cómo eliminar todo el espacio inicial al copiar una tabla de Excel a Word

Question

Tengo varias tablas generadas en microsoft excel 2013. Ahora quiero pegar estas tablas en ms word 2013 pero el problema surge cuando pego estas tablas. Las tablas están bien pegadas, pero con un espacio inicial antes de cada celda de la tabla en MS Word, como se muestra a continuación. Probé con la función de recorte en Excel, pero fue en vano. Necesito eliminar esos espacios. Esas tablas en Excel se actualizan con frecuencia mediante cálculos manuales. Entonces necesito una forma sencilla de eliminar espacios.

Answer 1

Seleccione la tabla y ejecute el siguiente código de macro

Sub NoSpaces()
    Dim c As Range

    For Each c In Selection.Cells
        c = Replace(c, " ", "")
    Next
End Sub

escriba este código en el módulo y ejecútelo usando la ventana inmediata. trabajó para mi.

Answer 2

Deberías usar la función "recortar"enlace, porque "reemplazar" reemplaza cualquier espacio también en medio de una cadena: por ejemplo, ".L.NP" da "LNP" y no "L.NP" como se desea.