もうひとつ。最初に文字列+スペースをしておきleft$ で必要な文字数だけ切り出すというのもありました。 Dim str As String Dim L As Long L = 10 '切り出す文字数 str = "文字列" & String$(L, " ") '切り出す文字数分あらかじめ空白を足しておく str = Left$(str, L)