文字の抜き出しについて

はじめまして。

エクセル2013を使用しております。
文字の抜き出しについてご教示ください。

（例）
・は|、|ミカエル|に|命じ|て|、|アブラハム|を|智|天使|の|引く|戦車|に|乗せ|、|天国|を|見物|
・、|彼女|の|夫|の|こと|を|いろいろ|と|聞か|せ|て|、|彼女|を|ほとんど|幸福|な|気分|に|

最後の文字、「見物」「に」だけを抽出する場合は、どのような関数やマクロを使用すればよろしいでしょうか。全くの初心者で申し訳ございません。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： mu2011 回答日時： 2013/05/14 12:58

ユーザ定義関数は如何でしょうか。

シートタブ上で右クリック→コードの表示→挿入→標準モジュールにサンプルコードを貼り付けてお試し下さい。
関数式は、こんな感じです。
=IF(A1<>"",mystr(A1),"")

Function mystr(rng)
Dim wk
wk = Split(rng, "|")
mystr = wk(UBound(wk) - 1)
End Function

この回答へのお礼

ご質問に答えてくださり、ありがとうございました。
本当に助かりました。感謝いたします。

お礼日時：2013/05/15 12:34