Excelで、文字の抽出・結果表示

質問

Excelで、文字の抽出を行い、その結果を表示させたいのですが、
どのようにマクロもしくはVBを組んでいいのかわからず困っています。

例えば・・・

　　A　　　　　　　　　　　　　B　　　　C　　　　D
１　日付：2008/1/30　　
２　タイトル：「あいうえお」
３　内容：「abcdef・・・」
４　番号：7890
５　日付：2008/1/30　　
６　タイトル：「さしすせそ」
７　内容：「jklmn・・・」
８　番号：54321

B列、C列、D列以降は空白となっています。
上記の中で、タイトル部分の「あいうえお」と「さしすせそ」だけを抽出して、別シートのその結果を表示させたいのですが、
どのようにすればいいでしょうか？
ちなみに、上記のデータが膨大にあるので、ボタン一つで結果を表示させたいと思っています。

皆様、よろしくお願いいたします。

回答No.2

n-jun

シート1のデータからシート2のＡ列へ転記
Sub　try()
　Dim　r1　As　Range
　Dim　r2　As　Range
　Dim　r　As　Range

　With　Worksheets("Sheet1")
　　　　　　Set　r1　=　.Range(.[A1],　.Cells(Rows.Count,　1).End(xlUp))
　End　With
　Set　r2　=　Worksheets("Sheet2").Range("A1")

　With　CreateObject("VBScript.RegEXP")
　　　　　　.Pattern　=　"^タイトル：(\「\D+\」)$"
　　　　　　For　Each　r　In　r1
　　　　　　If　.test(r.Value)　Then
　　　　　　　　　r2.Value　=　.Replace(r.Value,　"$1")
　　　　　　　　　Set　r2　=　r2.Offset(1)
　　　　　　End　If
　　　　　　Next
　End　With
End　Sub
こんな感じの事ですか？

お礼

ありがとうございます。
試してみます。

回答No.1

n-jun

別シートにタイトルを並べると言う事ですか？
”タイトル”という文字は含まれているのですか？

補足

ご質問ありがとうございます。

「タイトル」という文字は入れません。
「あいうえお」
「さしすせそ」
を抽出させたいので、よろしくお願いいたします。