エクセルデータのこういうデータは直せますか？

質問

ある友人にデータの打ち込みをたのんだのですが。
もらったデータがA1縦列のみにしかなく。
全部A1列に繋がっているのですが。

A1

氏名：あいうえお
住所：あいうえお
電話番号：あいうえお

氏名：かきくけこ
住所；かきくけこ
電話番号かきくけこ

・
・
・

となっているのですが。
なんせデータの量がおおくて。
このデータをなにかして。

氏名　　　｜　住所　　｜　電話番号｜
あいうえお｜あいうえお｜あいうえお｜
かきくけこ｜かきくけこ｜かきくけこ｜

みたいに整理できませんかね？
誰かたすけてください。
おねがいします。

回答No.7

ham_kamo

マクロで一気にやる方法です。Sheet1のA1にデータが入っているとして、Sheet2に分解した表を作ります。以下の手順に沿って操作してみてください。

まずAlt+F11を押すとVBAの画面が開くので、左側のツリーからブック名を選択し、右クリックから「挿入」＞「標準モジュール」を選択して、右の画面に以下のマクロをコピーして貼り付けてください。

Sub Sample()
　Dim Shimei As String, Addres As String, Tel As String
　Dim Data As Variant
　Dim i As Integer, j As Integer, TmpStr As String
　Data = Split(Worksheets("Sheet1").Range("A1").Value, vbLf)

　With Worksheets("Sheet2")
　　.Cells.ClearContents
　　.Range("A1:C1").Value = Array("氏名", "住所", "電話番号")
　　For i = 0 To UBound(Data)
　　　If Data(i) Like "氏名*" Then
　　　　TmpStr = Replace(Data(i), "氏名", "")
　　　　j = 1
　　　ElseIf Data(i) Like "住所*" Then
　　　　TmpStr = Replace(Data(i), "住所", "")
　　　　j = 2
　　　ElseIf Data(i) Like "電話番号*" Then
　　　　TmpStr = Replace(Data(i), "電話番号", "")
　　　　j = 3
　　　Else
　　　　j = 0
　　　End If
　　　If j > 0 Then
　　　　TmpStr = Trim(Replace(Replace(TmpStr, "：", ""), ":", ""))
　　　　.Cells(Rows.Count, j).NumberFormatLocal = "@"
　　　　.Cells(Rows.Count, j).End(xlUp).Offset(1).Value = TmpStr
　　　End If
　　Next
　End With
End Sub

その画面でF5キーを押すか、Alt+F11でExcelの画面に戻ってAlt+F8からマクロを実行してみてください。Sheet2に表ができます。
エラーが出たり、希望の結果と違う、その他おかしいことがあれば補足をお願いします。

補足

返事が遅くなりすみませんでした。

書いてあるとおりしてみましたが。
sheet2のところの一列目の

氏名　　　｜　住所　　｜　電話番号｜

しか作成されません。
こちらのやりかたがいけないのでしょうか？

迷惑おかけします。