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」にはなりません。