>>543
貼っちゃいますね。
といっても貼った所でどうにもならないコードですが−−；

Sub aaa()
Dim a As String

a = Trim(Cells(1, 1))
Cells(2, 1) = a

End Sub

中に入れた文字列は「ジャスダック｣「ヘラクレス｣｢マザーズ｣です。
コピペしてきたんで「　ジャスダック　」こんなふうに隙間が開いちゃってるんですよね。
この隙間を無くしたいんですができないんですよね。。
色々な文字列で試しましたが基本的に全部ダメですね。
でも数字だけはなぜかできるんですよね。。。