エクセルでの文字列操作

質問

間に空白がある文字列「ＡＢ　Ｃ」を「ＡＢ　Ｃ　」
　　　　　　　　　　「Ａ　ＢＣ」は「Ａ　　ＢＣ」
　　　　　　　　　　「Ａ　Ｂ」　は「Ａ　　Ｂ　」

と言う風に変更したいのですが何か良い方法はないでしょうか？
前が苗字で空白後名前なのですが印字する時のバランスをとりたいのです。皆さんどうかお願いします。

回答No.3

imogasi · ベストアンサー

（１）Ａ１の名前を一旦Ｂ列、Ｃ列に分解します。
Ａ列を範囲指定して
メニューのデータ－区切り位置－カンマやタブ・・－次ぎへ－（区切り文字）スペース－次ぎへ－完了
Ａ列
大阪谷　三郎
原　一郎
が
Ａ列　　　Ｂ列
大阪谷 三郎
原 一郎
になります。
（２）Ｃ１に=A1&REPT("　",6-LEN(A1))&B1と入れます。
Ｃ２以下式を複写します。
６は適当に、４か５か６（字）のどれかが適当でしょう。
（３）書体をＰ（ＭＳＰ明朝など）の入っていない
ＭＳ明朝などに設定します。
大阪谷　　　三郎
原　　　　　一郎
などになりました。

お礼

お答えありがとうございます！
せっかくですがこの式だと名前の始まりがずれてしまいますね。
しかしながらREPT("　",6-LEN(A1))の発想はすごいですね。これをヒントにこんなのを作ってみました。

=IF(AND(LEN(A1)=1,LEN(B1)=1),A1&REPT("　",2)&B1&"　",IF(AND(LEN(A1)=1,LEN(B1)=2),A1&REPT("　",2)&B1,IF(AND(LEN(A1)=2,LEN(B1=1),A1&"　"&B1&"　",A1&"　"&B1)))

かなり長いのですがこれでなんとかなりそうです！
ありがとうございました！

回答No.6

whitepepper

印刷のためだけにデータそのものを加工してしまうのは、データベース管理の基本的姿勢からちょっと外れますね。
　それで、マクロやVBAでもできるでしょうが、スクリプトを書いている暇があったら、CSVで書き出して秀丸エディタあたりで加工したほうがずっと手っ取り早かったりします。

　それで、もっと根本的なことでご提案しますと、

》印字する時のバランスをとりたいのです。

　これが最終目的なら、「筆自慢」とか「筆ぐるめ」などの年賀状ソフトにデータをコンバートして、そちらで印字すればいいでしょう。これらのソフトは、個々のデータごとの印字バランスの調整について、他に比類のないほど優れています。

お礼

う～ん、そうなんですよね～。
でも送られてくるデータがなぜか「佐藤　一郎　　　　」とか末尾にスペースが入ってくるんですよ。
ＴＲＩＭ関数を使ってから筆ぐるめって言うパターンは有りなんでしょうね。
でも業務用のドローソフトを細工して使っているのでこのためだけに筆まめ購入の稟議書だすのもちょっと気まずいです（汗

回答No.5

comv

こんばんは

>文字数は５文字にしたいのです。
とのことなので苗字３文字＋名前３文字のデータは
ないとして

Ａ１に元データ　Ｂ１に式
=LEFT(SUBSTITUTE(A1,"　",IF(LEN(A1)>5,"",IF(SUM(COUNTIF(A1,{"?　?","?　??"})),"　　","　")))&"　",5)

で試してみて下さい

お礼

SUBSTITUTEという関数は初めて見ました、エクセルは奥が深いですね。
回答ありがとうございました。

回答No.4

PAPA0427

なるほど。そう言うことですか。

ＶＢＡでのプログラムが必要ですね。

条件が明示されれば、あるいは明快な回答も…。

全角５文字でよいのですか？人名だったら足らないような気がしますが。

お礼

２・３文字の方：空白でバランスをとって５文字にする
４文字以上の方：苗字＋空白１＋名前

としています、全角です。
う～んやっぱりＶＢＡでしょうか（＞＜）

回答No.2

akey

例えば、Ａ列に「苗字　名前」と入力されていたとして、一旦、
Ｂ列に「苗字」
Ｃ列に「名前」
というふうに分解するのはいかがでしょうか？
そうすれば、Ｂ列とＣ列の文字を左揃えにすれば、
バランスよく配置されます。
ただし、分解処理にはマクロ（ＶＢＡ）が必要です。
もし、それでよろしければ、サンプルマクロをご提示
できますが？

お礼

回答ありがとうございます。
分解するという発想がすばらしいですね。
方法は上のimogasiさんのを用いてみました。

回答No.1

PAPA0427

また、新しい課題ですね。

書式設定で、均等割付をされたらいかがでしょう。

書式変更したいセルにあわせて→右クリック→セルの書式設定→配置→横位置のプルダウンで「均等割り付け」

でいかがでしょう？

お礼

回答ありがとうございます。
しかし残念ながら文字数は５文字にしたいのです。
このデータは作成後ｃｓｖ形式に変換し様々なソフトで応用して使います、よってエクセルの機能に依存しない変換が必要なのです。（関数の場合は形式を選択して貼り付けで値のみを抽出しています）
わがまま言ってすみません。