エクセル、関数でセル内の半角カタカナ漢字、を分けて他のセルへ表示する方法

下記のようにＡ列の１つのセル内に、半角カタカナ漢字がつながって入力されてるデータがあります。これを関数でＤ列にカタカナ姓、Ｅ列にカタカナ名、Ｆ列に漢字姓、Ｇ列に漢字名と分解して表示させたいのですが、難しくできませんでした。どうかよろしくお願いします。
　　　　　Ａ
1　スズキ イチロウ鈴木　一郎
2　ヤマダ タロウ山田　太郎

No.4 ベストアンサー 回答者： munmunmunm 回答日時： 2009/04/05 16:25

関数でと言う事なので、ちょっと作ってみました。

[A列]に入力されている文字が
[半角カナ姓]+[半角スペース]+[半角カナ名]+[全角漢字姓]+[半角スペース]+[全角漢字名]
だと仮定して作っています。

もし、スペースが半角でなくて全角だと少し関数が変わってきます。

それでは

D1に入る関数
=MID(LEFTB(A1,LENB(JIS(A1))-LENB(A1)+1),1,(FIND(" ",LEFTB(A1,LENB(JIS(A1))-LENB(A1)+1),1)-1))

F1に入る関数
=MID(LEFTB(A1,LENB(JIS(A1))-LENB(A1)+1),FIND(" ",LEFTB(A1,LENB(JIS(A1))-LENB(A1)+1),1)+1,99)

G1に入る関数
=MID(RIGHTB(A1,LENB(A1)-((LENB(JIS(A1))-LENB(A1))+1)),1,FIND(" ",RIGHTB(A1,LENB(A1)-((LENB(JIS(A1))-LENB(A1))+1)),1)-1)

H1に入る関数
=MID(RIGHTB(A1,LENB(A1)-((LENB(JIS(A1))-LENB(A1))+1)),FIND(" ",RIGHTB(A1,LENB(A1)-((LENB(JIS(A1))-LENB(A1))+1)),1)+1,99)

これで１行目から下へコピーでOKなはずです。
内容としては半角カナを全角カナに変換して、その文字バイト数の差を使ってカナと漢字に分割。あとは半角スペースの位置を割り出して姓名に分割。といった感じです。

この回答へのお礼

私の情報掲載不足でしたが、漢字名の間のスペースは全角でした。ためしにカタカナの方でしてみたのですが姓は満点、名はところどころ最後の1文字が不足という状況でした。たくさんの方に親切にしていただき感激です。私ももっと使えるように調べて行きたいと思います。

お礼日時：2009/04/05 17:41

No.6 回答者： munmunmunm 回答日時： 2009/04/05 19:44

度々すいません。

No.4です。

F1に入る関数とG1に入る関数で誤記入をしてしまいました。
A12となっている所ですが、正しくはA1です。
訂正をお願い致します。

この回答へのお礼

ご指摘の通り濁点のないものやＤ列Ｇ列は１００パーセントです。Ｅ列Ｆ列は１度目に作っていただいたものが精度が高かったようです。文字数の数え方が少しずつわかってきました。難しいのですね。ゆっくり理解していきたいと思います。

お礼日時：2009/04/05 23:05

No.5 回答者： munmunmunm 回答日時： 2009/04/05 19:39

No.4です。

ごめんなさい。

半角カナから全角カナに変換する際に濁点の数が含まれなくなってしまうようで誤差がでてしまったようです。ちょこっと内容を変更しました。
また、漢字苗字の間のスペースは全角との事で、こちらもちょこっと変更しました。

試して頂けると幸いです。

D1に入る関数
=MID(LEFTB(A1,(LENB(JIS(A1))+LENB(A1)-LENB(SUBSTITUTE(A1,"゛",""))*2)),1,(FIND(" ",LEFTB(A1,(LENB(JIS(A1))+LENB(A1)-LENB(SUBSTITUTE(A1,"゛",""))*2)),1)-1))

E1に入る関数
=MID(LEFTB(A1,(LENB(JIS(A1))+LENB(A1)-LENB(SUBSTITUTE(A1,"゛",""))*2)),FIND(" ",LEFTB(A1,(LENB(JIS(A1))+LENB(A1)-LENB(SUBSTITUTE(A1,"゛",""))*2)),1)+1,99)

F1に入る関数
=MID(RIGHTB(A1,(LENB(SUBSTITUTE(A12,"゛",""))*2-LENB(JIS(A1)))),1,FIND("　",RIGHTB(A1,(LENB(SUBSTITUTE(A12,"゛",""))*2-LENB(JIS(A1)))),1)-1)

G1に入る関数
==MID(RIGHTB(A1,(LENB(SUBSTITUTE(A12,"゛",""))*2-LENB(JIS(A1)))),FIND("　",RIGHTB(A1,(LENB(SUBSTITUTE(A12,"゛",""))*2-LENB(JIS(A1)))),1)+1,99)

No.3 回答者： tortue2009 回答日時： 2009/04/05 14:21

え～　暇だったのでやってみましたが

関数でやるのは　大変
(1)Ａ列が　一度　［書式］→［ふりがな］で　編集
前のカタカナと漢字の振り仮名が一致していることが　条件

カタカナ名が　苦労しました

Ｄ１は
=LEFT(A1,FIND("　",JIS(A1),1)-1)
Ｅ１は
=MID(SUBSTITUTE(PHONETIC(A1),LEFT(A1,FIND("　",JIS(A1),1)-1),""),FIND("　",SUBSTITUTE(PHONETIC(A1),LEFT(A1,FIND("　",JIS(A1),1)-1),""),1)+1,FIND("　",SUBSTITUTE(PHONETIC(A1),LEFT(A1,FIND("　",JIS(A1),1)-1),""),FIND("　",SUBSTITUTE(PHONETIC(A1),LEFT(A1,FIND("　",JIS(A1),1)-1),""),1)+1)-(FIND("　",SUBSTITUTE(PHONETIC(A1),LEFT(A1,FIND("　",JIS(A1),1)-1),""),1)+1))
Ｆ１は
=TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,D1,""),E1,""),G1,""))
Ｇ１は
=RIGHT(JIS(A1),LEN(JIS(A1))-(FIND("　",JIS(A1),FIND("　",JIS(A1),1)+1)))
ただし　入力順は　Ｄ１→Ｇ１→Ｅ１→Ｆ１でお願いします

※検証していないので　試して間違っていたら　ごめんなさい

この回答へのお礼

お手数をおかけしました。わざわざ作っていただき感謝しております。振り仮名が使えると良かったのですが、一致していないデータを修正するには件数が多すぎて残念です。こんなに関数を組み合わせることは私の力量では思いつきませんでした。皆さんのようにできるようがんばってっみます。

お礼日時：2009/04/05 14:59

No.2 回答者： mike_g 回答日時： 2009/04/05 09:05

》 カタカナと漢字の間にスペースがない所があるのでこれだとできませんね。

と[回答番号：No.1]にありますが、この部分だけの対処法を提案しておきます。

添付図を参照ください。（姓名が、鈴木 一郎、山田 太郎、梅宮 アンナ、東 ちづる、泉 ピン子、の場合）

B1: {=LEFT(A1,MATCH(TRUE,(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))>"ん",0)-1)}
　　ただし、上式は配列数式です。
C1: =SUBSTITUTE(A1,B1,"")

ただし、姓名の部分が次の場合には当該手法は適用できません。
ビート たけし、はしの えみ、ラモス 瑠偉、あおい 輝彦、オノ ヨーコ

この回答へのお礼

この方法でうまくいかないかといろいろ試していました。すぐに理解できる技術がないので、これから活用できるようがんばってみます。

お礼日時：2009/04/05 17:45

No.1 回答者： t-yamada_2 回答日時： 2009/04/05 02:29

「スズキ イチロウ 鈴木　一郎」と分割する語句がスペースで区切られていれば

A1セルの内容をD1にコピーし、D1セルを選択してメニューのデータ(D)-区切り位置(E)-「カンマやタブなどの～」にチェック→「スペース」と「連続した区切り文字は～」にチェックして「完了」で分割できます。
ただ「スズキ イチロウ鈴木　一郎」とカタカナと漢字の間にスペースがない所があるのでこれだとできませんね。

この回答へのお礼

おっしゃる通り、カタカナと漢字の間だけはスペースがありません、それからできるだけ関数で処理をしたかったのです。「連続した区切り文字は～」の件、大変勉強になりました。別件で使う機会が多そうです。有難うございました。

お礼日時：2009/04/05 10:31