DATAの余分な文書を削除して整形したい（正規表現）

質問

現在下記の形でDATAがあります。

○○○○（店舗名）
（タブ＋改行）
TEL ： 000-000-0000
住所 ： 〒　000-0032　東京都立川市上砂町０丁目０－１

○○○○（店舗名）
（タブ＋改行）
TEL ： 000-000-0000
住所 ： 〒　000-0032　東京都立川市上砂町０丁目０－１

このDATAの店舗名と電話番号だけのDATAに整形したいと考えています。
○○○○（店舗名）,000-000-0000
○○○○（店舗名）,000-000-0000
○○○○（店舗名）,000-000-0000
○○○○（店舗名）,000-000-0000

結果的に上記の形でCSVができればいいのですが、手作業では凄く時間がかかっています。

ワード、エクセル、秀丸、DreameWeaverなどを使用して簡単に整形する方法がありましたら教えてください。

また、電話番号のハイフンの取り方も教えていただけましたら幸いです。

よろしくお願いします。

回答No.2

hige_082 · ベストアンサー

＞このソースをどこに貼ればいいのか簡単に教えていただけると
[Alt]を押したまま[f11][I][M]順でキーを押す
カーソルの位置へマクロを貼り付け
[Alt]+[Q]
Sheet1を選択し
データをＡ列に貼り付け
[Alt]を押したまま[T][M][M]順でキーを押す
「test」を選択して実行

回答No.1

hige_082

excelマクロです
sheet1のＡ列へDATAを貼り付けてください
sheet2へ出力します

Sub test()
Dim strData As String
Dim i As Long
With Worksheets("sheet1")
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If InStr(.Cells(i, 1).Value, "TEL") > 0 Then
strData = Right(.Cells(i, 1).Value, Len(.Cells(i, 1).Value) - InStr(.Cells(i, 1).Value, "："))
strData = Evaluate("SUBSTITUTE(""" & strData & """,""-"","""")")
strData = .Cells(i - 2, 1).Value & "," & strData
Worksheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = strData
End If
Next i
End With
End Sub

参考まで

お礼

hige_082さん
ご回答ありがとうございます。
エクセルと書いたのですが、そもそもマクロの使い方がわかりませんでした。
プログラムは若干わかるのですが、エクセルのマクロ機能の使い方がわかりません。試しにやってみたのですがエラーのアラートがでて400と書いています。

ググれかすと言われたらそれまでなのですが、
このソースをどこに貼ればいいのか簡単に教えていただけると
幸いです。

よろしくお願いいたします。