マクロを使って

質問

セルに「山田　太郎」など名前が入ってるとして、これをマクロを使って１０００件位のデータを姓と名にわけたいんですけど、こういうことは可能でしょうか？

回答No.2

souta_n

マクロはいらないでしょう。関数式で十分だと思います。
山田 太郎の山田と太郎の間に半角スペースが入っていればFIND関数で半角スペースが何文字目に入っているかを調べて、LEFT関数とMID関数で取り出します。具体的には

１．Ａ１に「山田 太郎」が入力されているとします。
２．Ｂ１の計算式は=LEFT(A1,FIND(" ",A1))とすると山田のみが表示されます。
３．Ｃ１の計算式は=MID(A1,FIND(" ",A1),100)とすると太郎のみが表示されます。
注：" "は"の間に半角スペースを入れてください。もしその元データが全角スペースなら全角スペースを入れてください。

お礼

分かりやすい説明ありがとうございました。
早速やりました。完璧でした。

回答No.1

imogasi

（１）マクロ・VBAを使って出来ますが、関数で十分でしょう
Sub test01()
d = Range("A65436").End(xlUp).Row
MsgBox d
For i = 1 To d
s = Split(Cells(i, "A"), "　")
Cells(i, "D") = s(0)
Cells(i, "E") = s(1)
Next i
End Sub
（２）関数を使う
A列に姓名があって
B1に=LEFT(A1,FIND("　",A1)-1)
C1に=RIGHT(A1,LEN(A1)-FIND("　",A1))
" "の中は実情に合わせて全角か半角のスペースを入れること。
１０００行目まで、B1等で右下に＋ハンドルを出して、下へ引っ張ること。
引っ張るのが面倒な人は
B2をポイントし、名前ボックスにB1000といれShiftキーを押しながら下矢印を押す。B":B1000が範囲指定される。
編集ーフィル－下方向へコピー

お礼

分かりやすい説明ありがとうございました。
早速やりました。完璧でした。