[[20141029194732]] 『余分なスペースを削除し指定したサイズのスペース』(カブファン) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『余分なスペースを削除し指定したサイズのスペースに調整する方法』(カブファン)

 いつもお世話になっております。
 
質問は、余分なスペースを削除し指定したサイズのスペースに調整する方法についてです。

下記のシートセル範囲に名前が記載されております。
名前は、半角スペースで区切っているのですが入力ミスなどにより半角以外のものもあり困っております。

 '(名前のスペース調整)

   With Worksheets("Dシート").Range("B2", Sheets("Sheet1").Range("B65536").End(xlUp))
        .Replace What:=" ", Replacement:=" " '半角の空白→半角
        .Replace What:=" ", Replacement:=" " '全角の空白→半角
   End With

上記のコードでは、なかなか思うように不要なスペースを調整することができませんでした。

そこで、ワークシート関数で試したところ、完璧な結果となりました。

 =TRIM(SUBSTITUTE(B2," "," "))

できれは、マクロで上記の関数を組み込みたいと考えました。

みなさん、どのように組み込めば宜しいのかアドバイスの程よろしくお願いします。

< 使用 Excel:Excel2010、使用 OS:Windows7 >


すみません

With Worksheets("Dシート").は、Sheet1の誤りです。
(カブファン) 2014/10/29(水) 19:58


これだとどうなりますか
.Value = Application.Trim(.Value)

(マナ) 2014/10/29(水) 21:07


マナさん

ありがとうございます。。

ヒントに調べたところ

下記のコードでバッチリ動きました。

.Value = Application.Substitute(.Value, " ", " ")

ありがとうございました。
(カブファン) 2014/10/29(水) 22:54


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.