エクセル：「・」を「スペース」に置換えたいのですが・・・

質問

お世話になります。
セル：Ａ１に「=B1&"・"&C1&"・"&D1&"・"&E1&"・"&F1・・・」
と式を入れてA列縦にコピーしています。その結果、E列やＦ列が空白のときなど、ケース（次の例）により

例(1)「○○・△△・□□・・・」は「○○・△△・□□」（最後の「・・・」がいらない）

例(2)「■○・△○・◆◆・◎▼・」は「■○・△○・◎▼」（最後の「・」がいらない）

例(3)「△◎・・◆◆・◎△」は「△◎・◆◆・◎△」（△◎の次の「・・」が「・」となってほしいい）

というように、要は余分な「・」を消去したいのです。

尚「置換え」を使うか、「関数」か、「ＶＢＡ」か私にはどうしたものかよくわかりません。いろいろな方法を教えてくだされば勉強にもなりうれしく思います。
ご指導をよろしくお願いいたします。

回答No.2

shiotan99 · ベストアンサー

こんにちは～

A列に入れる式を変更したほうがカンタンだと思いますよ。

A1に
=SUBSTITUTE(TRIM(B1&" "&C1&" "&D1&" "&E1&" "&F1)," ","・")

と入れて、下にフィルコピーしてみてください。

お礼

shiotan99さん、ありがとうございます。お礼が遅くなりました。ばっちりできました。これほどシンプルな式でできるなんて・・・^^。感謝です。

回答No.4

hirumin

そのセルが空欄なら何も無し、何か値があれば"・"と合わせて値を追加します。

=B1&IF(ISBLANK(C1),"","・"&C1)&IF(ISBLANK(D1),"","・"&D1)&IF(ISBLANK(E1),"","・"&E1)&IF(ISBLANK(F1),"","・"&F1)

お礼

お礼が遅くなりました。ありがとうございました。結果は完璧なのですが、先着順でのポイント発行させていただくことをお許しください。またよろしくお願いします。

回答No.3

mshr1962

=SUBSTITUTE(SUBSTITUTE(数式,CHAR(10)&CHAR(10),CHAR(10))&"\\",CHAR(10)&"\\","")
ちょっと長くなりますが、これで改行を整理できます。
数式のところにA列の式を設定してください。

本当はVBAでユーザー定義関数を作り、範囲を指定すればセル単位に改行文字を入れるというのが正解だと思いますが...

お礼

mshr1962さん、いつもありがとうございます。今回、意図するところの結果がでず、式の内容も理解できませんでしたが、今後ともよろしくお願いいたします。

回答No.1

nikuq_goo

あくまで一例
=B1&IF(C1="","","/"&C1)&IF(D1="","","/"&D1)&IF(E1="","","/"&E1)&IF(F1="","","/"&F1)

１セルの計算式が長くても良いならif文でそこにデータが無かったら無し、あるならば/＋内容とします。

あっ・・・/は・に置き換えてください

これをベースにすっきりさせたかったら同様のマクロ(vba)を組めば綺麗にはなります。

お礼

お礼が遅くなりました。ありがとうございましたできました^^