VBA で列から空白を削除する

Question

スペースが存在しないように、2 列のデータを解析しようとしています。末尾と先頭のスペースは削除しますが、内部のスペースは削除しないコードを見つけました。すべてのスペースを削除するには、このコードにどのような変更を加える必要がありますか。

Sub Remove_Spaces()

Dim rng As Range

Set rng = Range("C:D")
rng.Value = Application.Trim(rng)

End Sub

ありがとう

Answer 1

あなたの要件に対する私の回答は、VBA コードやマクロに基づくものではありません。

これはいくつかの手順で実現できます。まず、すぐに参照できるように、使用したデータと到達した結果の画像を以下に掲載します。

ありがとう。

Answer 2

声明

Selection.Replace " ", ""

（PeterH が提案) が私には効果がありました。