White Tiger

Microsoft Excel VBA - 氏名を姓と名に分ける方法

◆概要

　氏名が１つのセルに入力されているとき、性と名に分ける方法です。


　氏名がスペースで入力されているときは、関数を使って性と名に分けることができます。
　手順は次のようになります。氏名が入っているセルをＡ１とし、姓を抽出するセルをＢ１、名を抽出するセルをＣ１とします。

1. まず、Ｂ１に「=LEFT(A1,SEARCH(" ",A1,1)-1)」と入力 します。
   意味は「Ａ１のセルの左からはじめに見つけた空白の ひとつ手前の文字までを抽出する」です。SEARCH関数で空白の位置を調べています。
2. 次にＣ１に「=TRIM(SUBSTITUTE(A1,B1,""))」と入力しま す。
   意味は、「SUBSTITUTE関数でＡ１のセルからＢ１のセルを 見つけて、長さゼロの文字に置き換えなさい。」です。SUBSTITUTE関数で置き換えを行っています。 次に、「TRIM関数で余分な空白を削除しなさい。」としていま す。

Link