セル内の長文テキストの分割

質問

セル内の長文テキストを、任意の位置で分割し、下のセルへ移動させる方法を教えてください。

下図のように、エクセルのＡ列に長文のテキストが入力されているとします。
（|○○....｜は１つのセルのつもりです。）

| |　　　　　　　　　　　　　Ａ　　　　　　　　　　　|
|1|関東地方は雨模様が続きますが、東北地方は..........|
|2|今日のニュースは、新潟県で起こった事件の続報......|
|3|いつもお世話になっております。このところ..........｜
|4|The method is descrived in the blow figure .......｜
.....

これを、たとえば、
A2セルの「新潟県で」以降の文章をA3へ移動させ、
以降のセルの内容も一つ下のセルに移動させる方法はありますでしょうか？

| |　　　　　　　　　　　　　Ａ　　　　　　　　　　　|
|1|関東地方は雨模様が続きますが、東北地方は..........|
|2|今日のニュースは、新潟県で........................|
|3|起こった事件の続報................................|
|4|いつもお世話になっております。このところ..........｜
|5|The method is descrived in the blow figure .......｜

セル内のテキストの内容に規則性はありません。
文章を読みながら、任意の箇所で文章を区切っていく作業を行いたいのです。
マクロの記録をやってみましたがうまくいきませんでした。

どうぞよろしくお願いいたします。

回答No.4

Sinogi

となりのセルにデータがあるとのことなので、A列でオリジナルセルの直下に分割された文言を挿入するマクロをつくってみました。
区切り記号は　＾　を使用します。
＾　は手作業で希望の位置に入れてください。
文頭/文末には＾は無いものと考えています。

＾の入ったオリジナルデータは残るようにしています。

ご参考に

Option Explicit
Sub Strdiv()
Dim StrW()
Dim StrNum()
Dim RepStr, RepWord, StRow, WorkCount, NumStr, WorkLen, WordMax, WorkStr, SpltNum, WR

NumStr = Cells(1, 1).End(xlDown).Row
ReDim StrNum(NumStr) '区切り数
StrNum(0) = 0
For RepStr = 1 To NumStr
WorkStr = Cells(RepStr, 1).Value
WorkLen = Len(WorkStr)
StrNum(RepStr) = 1
SpltNum = 1 '区切りの最初
For RepWord = 1 To WorkLen
If Mid(WorkStr, RepWord, 1) = "^" Then ' ^があれば区切記号
StrNum(RepStr) = StrNum(RepStr) + 1
If StrNum(RepStr) > WordMax Then
WordMax = StrNum(RepStr) '区切り数の最大値
ReDim Preserve StrW(NumStr, WordMax)
End If
StrW(RepStr, StrNum(RepStr) - 1) = Mid(WorkStr, SpltNum, RepWord - SpltNum)
SpltNum = RepWord + 1
End If
Next RepWord
StrW(RepStr, StrNum(RepStr)) = Mid(WorkStr, SpltNum, RepWord - SpltNum)
Next RepStr
WR = 0
For RepStr = 1 To NumStr
WR = WR + StrNum(RepStr - 1)
For RepWord = 1 To StrNum(RepStr)
Cells(RepStr + WR + RepWord, 1).Insert shift:=xlDown
Cells(RepStr + WR + RepWord, 1).Value = StrW(RepStr, RepWord)
Next RepWord
Next RepStr
End Sub

補足

ありがとうございます！
これがしたかったんです！
すばらしいです。
ほんとにありがとうございます。

>＾の入ったオリジナルデータは残るようにしています。
できたら、オリジナルデータは消去したいのですが、どうしたらいいでしょうか？
教えていただけると大変ありがたいです。
よろしくお願いいたします。