VBA 文字間に半角スペースを入れる

質問

OSは　Win7、Excelは2013　を使用しています。

Ｆ列に名前が入っています。
名前の文字の間に、半角スペースを入れたいのですが、
（山田太郎　→　山 田 太 郎）
名前なので文字数がそれぞれ違うので、どうすればいいかわかりません。
どなたかご教示いただけたら有難いです。
よろしくお願い致します。

回答No.1

keithin · ベストアンサー

文字数回繰り返すだけです。

sub macro1()
　dim h as range
　dim i as integer

　for each h in range("F:F").specialcells(xlcelltypeconstants, xltextvalues)
　　for i = len(h) to 2 step -1　’文字数だけ繰り返す
　　　h = application.replace(h, i, 0, " ")　’半角スペースを挿入
　　next i
　　h = application.trim(h)　’記入済みスペースがあった場合の処理
　next
end sub

お礼

keithin様

ありがとうございます！
希望通りになりました！
.specialcells(xlcelltypeconstants, xltextvalues)
とか、
application.replace
が知らない記述でしたので、このコメントを投稿した後に勉強します。
重ねてお礼申し上げます。