エクセルの文字の配置

質問

報告書をエクセルで書いているのですが、よく上司に「君の報告書の表紙はバランスが悪いね」と言われます。
と、言うのも報告書の本文も表紙もエクセルの関数を駆使して書いていることが原因なのです。（軽いいじめかもしれませんが…w）
報告書は入力用シートに入力されたものが、各セルに入るものです。
問題なのは、入力用のシートには「(株)＊＊＊様」と書いて、
報告書本文には　(株)＊＊＊様　と表記し、
表紙には　　(株) ＊ ＊ ＊ 様　みたいな感じでスペースを空けて表記したいのです。
セルの書式設定→均等割り付け以外に良い方法があればご教示願います。

回答No.1

imogasi

もっと質問内容を判りやすく書くこと。細かい意味が表現されていないと思う。
（１）入力データは（株）は(株)か(+株＋）か
普通得意先に出す書類に（株）は使わないのではないか。
（２）＞エクセルの関数を駆使して
自分で、自分のしていることについて、ほめ言葉「駆使」を使うのはおかしいと思う。
こんなもの駆使というほどのものでなかろう。
=A1式の引用をしているのでは。それ以外の式を入れているのか（疑問１）
（３）関数で出した値も、直接入力した値も、値という点で何も変わりは無いよ。誤解ないように。言い訳にならない。
（４）結果は＞株) ＊ ＊ ＊ 様　みたいな感じでスペースを空けて表記したいのです
が具体的に良く表現されていない。
（株）＋２スペース＋山＋２スペース＋田＋２スペース＋商＋２スペース＋事のように書かないと、この質問コーナは表示は崩れたり正確に伝わらない。（疑問２）
（５）エクセルの書式はVBAではNumberFormatというぐらい、数（日付も数です）の書式ばかり。文字列の書式は無い。
例えば１字ごとに２スペースを空けるような書式はない。
ーー
だから（４）で良い質問内容なら、関数で各文字に２スペース入れればよい。
=MID(A1,1,1)&" "&MID(A1,2,1)&" "&MID(A1,3,1)&" "&MID(A1,4,1)&" "&MID(A1,5,1)
ーー
しかし会社名の文字数が不定で関数では扱いにくい
ーー
VBAでユーザー関数を作るぐらいが解決策か？
標準モジュールに
Function aaa(a)
s = ""
For i = 1 To Len(a)
s = s + Mid(a, i, 1) & " "
Next i
aaa = s
End Function
使うセルで
=aaa(A1)
(株) 山 田 商 事 様
ーー
文字を加えるだけなら
書式
ユーザー定義
@ "様"
で出来る。