【文字数調整】 指定文字数までスペースを付与させる方法について

質問

お世話になっています。
【文字数調整】 指定文字数までスペースを付与させる方法はないものでしょうか？
（ソフトはWord、Excel、サクラエディタを使用しています。）

文字数：50
として指定されている文字枠があったとして
５文字入力文字があれば、残りの４５文字をスペースを入れたいのですがなにか良い方法はありませんでしょうか。

「あああああ」
　↓
「あああああ　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　」

という風な感じでスペースを追加（文字数調整）したいのです。
「入力文字が指定文字数に足りない場合、スペースを挿入する方法はありませんでしょうか。

回答No.4

imogasi · ベストアンサー

関数で
=REPLACE(REPT("　",10),1,LEN(A1),A1)&"*"
＊は終わりがわかるよう、説明用に入れたもの。
実際ははずしてください（&"*"を）
10も50なりに変えてください。
＝＝＝＝
納得するには、セルの書式でフォントを「Ｐつき」にしないで（プロポーショナルフォントでない書体で）やること。

お礼

ご回答ありがとうございます。
お返事が遅れてすみませんでした。

「=REPLACE(REPT("　",10),1,LEN(A1),A1)&"*"」
とても使いやすかったです。

「プロポーショナルフォントでは「i」の幅よりも「w」の幅の方が大きい」という作りもあるのですね。

いろいろ教えていただきありがとうございます。
とてもためになりました。

回答No.3

hallo-2007

エクセルの例
A列に文字があって、B列に
=LEFT(A1&"　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　",50)
=LEFT(A1&REPT("　",50),50)
文字の後に50個のスペースをつけて、頭から50文字だけ取得する
こんな発想です。

お礼

ご回答ありがとうございます。
お返事が遅れてすみませんでした。

発想まで教えていただきありがとうございます。
私にはそういった力が足りていないところもありますのでとてもためになります。

ありがとうございます！

回答No.2

xls88

Excelで
作業列を使ってもよいなら
=A1&REPT("　",40-LEN(A1))

作業列を使えないなら
マクロの例です。
Range("A1").Value = Range("A1").Value & WorksheetFunction.Rept("　", 40 - Len(Range("A1").Value))

お礼

ご回答ありがとうございます
お返事が遅くなってすみませんでした。

=A1&REPT("　",40-LEN(A1))で記述したところ
スペースが入りました。

とても助かりました！

回答No.1

tostem41

ExcelならREPT関数があります。
概要を説明するとある指定の動作をある指定の回数繰り返します。

例えば、A1に"あああ"と入力されている場合にB1に
=A1&REPT("　",LEN(5-A1))
と入力すると"あああ　　"となります。

お礼

ご回答ありがとうございます。
お返事が遅くなってすみませんでした。

「A1に"あああ"と入力されている場合にB1に=A1&REPT("　",LEN(5-A1))」を試したところ

＃valueとなって表示されませんでした。
どうしてでしょうか・・・？

文法上は　指定数：５　だった場合
「A1の文字（３文字）に、５－３（A1の文字数分）を引いた数分、スペースが追加される」という意味になっているとは思うのですが・・・

Excel version 2002（ＸＰ）のため
バージョンが関係しているのでしょうか・・・