エクセルでふりがなをふって置き換えをしたい

質問

よろしくお願い致します。

例えば、

田中株式会社

佐藤有限会社

という会社があり、エクセルでふりがなをふると同時に、株式会社、有限会社という文字を
消して表示がしたいのですが、うまくいきません。

SUBSTITUTE(PHONETIC(A1),"株式会社","")

というので、株式会社だけは消せたのですが、有限会社をどうやって追加すればいいのか
わかりません。

どなたかご教授いただけますでしょうか。

回答No.3

last_shishi · ベストアンサー

=SUBSTITUTE(SUBSTITUTE(PHONETIC(A1),"カブシキガイシャ",""),"ユウゲンガイシャ","")

ですね。

お礼

お礼が遅くなり申し訳ございません。

教えていただいた方法で、私がしたかったことができました。
まさにコレ！という感じです。

ありがとうございました。

回答No.4

MackyNo1

>田中株式会社
>佐藤有限会社
>というのを、
>タナカ
>サトウ
>という表示に替えたいのです。

Ｎｏ１でも回答しましたが、SUBSTITUTE(PHONETIC(A1),"株式会社","")の式で株式会社が消せたということは、Ａ１セルにはふりがな情報が無いことを意味しています。
このようなケースは、エクセルで入力したのではなく、例えばエクセル以外のアプリケーションからコピーやインポートしたデータの場合に発生しますが、そのようなデータなのでしょうか？

Ｎｏ１でも回答したように、ふりがな情報が無いデータのふりがなを付けるには関数では実行できませんので簡単なマクロを実行する必要があります。
また、関数で表示したデータにはふりがなは付けられませんので、関数で「田中」や「佐藤」を表示している場合は、通常の文字列データに変更する必要があります。

この場合は、データ範囲を選択して右クリック「コピー」、そのままもう一度右クリック「形式を選択して貼り付け」で「値」を選択します。

実際に「株式会社」と「有限会社」を除きたいだけなら、関数ではなく「置換」の機能を用いたほうが実戦的には簡便です。

Ｃｔｒｌ＋Ｈで置換ダイアログを出して検索する文字列に「株式会社」、置換後の文字列には何も入力せず「すべて置換」します。さらにそのまま検索する文字列に「有限会社」として「すべて置換」すれば「田中」や「佐藤」の文字列データを得ることができます。

これらの文字列にふりがなを付けたい場合は、対象範囲を選択してから、Ａｌｔ+F11でＶＢＥを起動し、Ｃｔｒｌ＋Ｇでイミディエイトウィンドウを表示して、以下のコードを入力してＥｎｔｅｒしてみてください（これでふりがな情報が付加されます）。

selection.setphonetic

＃Ｏｆｆｉｃｅソフトはバージョンによって使用できる機能や操作方法が異なりますので（上記の回答はどのバージョンでも対応できると思いますが）、質問の際にはバージョンを明記するようにしましょう。

お礼

お礼が遅くなりまして、申し訳ございません。
具体的に教えてくださってありがとうございました。

それに、自分で検索するときはバージョンも含めて検索するのに、質問する際にはそのことが全く頭にありませんでした。
以後気を付けようと思います。

ふりがなを付ける方法、とても便利でした。
ありがとうございました。

回答No.2

KURUMITO

A1セルから下方にデータが入力されているとして、それらのデータのふりがなが全角カタカナであるとします。

B1セルには例えば次の式を入力して下方にドラッグコピーします。

=IF(COUNTIF(A1,"*株式会社*")>0,SUBSTITUTE(A1,"株式会社","")&"("&SUBSTITUTE(PHONETIC(A1),"カブシキガイシャ","")&")",IF(COUNTIF(A1,"*有限会社*")>0,SUBSTITUTE(A1,"有限会社","")&"("&SUBSTITUTE(PHONETIC(A1),"ユウゲンガイシャ","")&")",""))

A列の文字のふりがながひらがなでしたら次の式にします。

=IF(COUNTIF(A1,"*株式会社*")>0,SUBSTITUTE(A1,"株式会社","")&"("&SUBSTITUTE(PHONETIC(A1),"かぶしきがいしゃ","")&")",IF(COUNTIF(A1,"*有限会社*")>0,SUBSTITUTE(A1,"有限会社","")&"("&SUBSTITUTE(PHONETIC(A1),"ゆうげんがいしゃ","")&")",""))

お礼

お礼が遅くなり申し訳ございません。

私には思い付かない式で勉強不足を実感です。
ありがとうございました。

回答No.1

MackyNo1

＞エクセルでふりがなをふると同時に、株式会社、有限会社という文字を消して表示がしたいのですが、うまくいきません。

この質問の意味が良くわかりません。
ふりがなをふるとは元のデータにふりがなが無いということでしょうか？
具体的にどのような表示とどのようなふりがなを付けたいのか例示してください(関数ではふりがなは付けられません）。

＞SUBSTITUTE(PHONETIC(A1),"株式会社","")

＞というので、株式会社だけは消せたのですが、有限会社をどうやって追加すればいいのかわかりません。

もし上記の関数でうまくいくということなら、以下の式でご希望のことができますが、ＰＨＯＮＥＴＩＣ関数の部分の意味が良くわかりません(（わざわざふりがなを置換するのではなく、そのままＡ１セルでよいと思います）。

=SUBSTITUTE(SUBSTITUTE(PHONETIC(A1),"株式会社",""),"有限会社","")

補足

すみません、説明が下手で…

田中株式会社
佐藤有限会社

というのを、

タナカ
サトウ

という表示に替えたいのです。

よろしくお願いします。