如何在将表格从 excel 复制到 word 时删除所有前导空格

Question

我在 Microsoft Excel 2013 中生成了几个表格。现在我想将这些表格粘贴到 MS Word 2013 中，但粘贴这些表格时出现了问题。表格粘贴得很好，但 MS Word 中表格的每个单元格前都有一些前导空格，如下所示。我尝试使用 Excel 中的修剪功能，但徒劳无功。我需要删除这些空格。Excel 中的这些表格经常通过手动计算进行更新。所以我需要一种轻松的方法来删除空格。

Answer 1

选择表格并运行下面的宏代码

Sub NoSpaces()
    Dim c As Range

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

将此代码写入模块并使用即时窗口运行。对我有用。

Answer 2

您应该使用“修剪”功能关联，因为“replace”还会替换字符串中间的任何空格：例如“.L.NP”会给出“LNP”而不是所需的“L.NP”。