エクセル VBA セル内の文字検索について

質問

XP microsoft visual basic 6.0 です

A1からA10に書かれた文章（平仮名、カタカナ、漢字、数字、記号、含む）の中に 0から始まる半角8桁の数字があれば 取り出し B列に書き出す

VBAを用いてこのようなことは可能でしょうか

※8桁の数字は文章内の何文字目にあるか決まっていない
※文章内に0から始まる8桁の数字が複数あることはない、が、0から始まり記号を含む8桁の文字列はある

ご教授ください

回答No.1

n-jun · ベストアンサー

一例です。

Sub　try()
　Dim　myReg　As　Object
　Dim　r　As　Range

　Set　myReg　=　CreateObject("VBScript.RegExp")
　myReg.Pattern　=　"(0\d{7})\D+"

　For　Each　r　In　Range("A1:A10")
　　　　　If　myReg.Test(r.Value)　Then
　　　　　　　　r.Offset(,　1).Value　=　"'"　&　myReg.Execute(r.Value)(0).Submatches(0)
　　　　　End　If
　Next
　Set　myReg　=　Nothing
End　Sub

ご参考になれば。

お礼

まさにこれです！
改良する必要がないほど完璧なので、わからない部分を調べながらじっくり勉強させていただきます！

ありがとうございました！