vbaのtrimでひっかかったので、自分メモ。
worksheetfunctionのtrimで検索すると、似たような個人ブログわんさかでてくる。。。
trim(" A B ")→"A B"
application.worksheetfunction.trim(" A B " )→"A B"
rightで右端1文字が半角スペースだったら、、、
leftで左端1文字が半角スペースだったら、、、
replaceで半角スペースが2つだったら1つに変換して、、、
半角スペースが2つとは限らない？半角スペースを一つは残してほしい？？全角スペースも合わせて対応する？？？
そんな要望に対応できました。
string = Replace(Application.Worksheetfunction.Trim(string)," "," ")
