Excelで、セル内の特定の文字を移動する方法を教えてください。

質問

Excelで年表を作成しています。
年代と本文を分けたいのですが、どのようにやればよいかわかりません。

例えば、B1のセルに1945年太平洋戦争終結。という文字列が入っています。この中の1945年をA1のセルに移動して、B1のセルには太平洋戦争終結をスペースなしで残したいのですが、Excelでは出来るのでしょうか。
MID関数で移動させる手も考えましたが、手間かかりデータを間違えそうで。
なにか良い方法がありましたら、是非、お教え下さい。
よろしくお願い致します。
過去ログも調べたのですが、見落としていたら申し訳ありません。

回答No.4

o_chi_chi

たとえば下記のようなマクロを作成し
ツール→マクロ→マクロでオプションを選択
(たとえば)aをいれてOK→キャンセルで
ショートカットを登録します。
これで分割したいセルを選択した状態で
Ctrl+aで文字列が分割できます。
---
Sub m()
Dim a As Range
Set a = ActiveCell
Cells(a.Row, 1) = Left$(a.Value, InStr(1, a.Value, "年"))
Cells(a.Row, 2) = Mid$(a.Value, InStr(1, a.Value, "年") + 1)
End Sub

お礼

スマートなやり方ですね。ありがとうございます。
ただ、マクロを使うと失敗したとき“元に戻す”効かないのでは？
一つのSheetに３０００近いデータがあるので、マクロは怖いです。
というか、マクロの知識がなかったりして．．．。