VBAで正規表現を使って文字を抜き取りたい

質問

以下のような文字列があったとします

あいうえおかきki990sks98くけこさし

この中からki990sks98の部分のアルファベットと数字による10ケタの文字列を
抜き出したいとおもっております。

但し、対象の文字はランダムに変化します

例えば

すせそ8ds8sjj9seなにぬねのは
ひふへほまみむis987ss9s0めも

ですので文字列の位置や左右に囲まれた文字列を指定して欲しい部分を取り出す事ができませんので

「アルファベットと数字を含むだけのものが連続して構成される10ケタの文字列」
という形で文字列を抜き取りたいのですが、どのようにしたらよいでしょうか？

アドバイスをお願いします。

可能であればVBA用に
変数に上記のランダム文字列が入っている状態からの抜き取り作業コードも教えていただければ幸いです。（初心者なものでもうしわけありません）

よろしくお願いします。

回答No.1

notnot · ベストアンサー

まず、正規表現を使えるようにするために、VB Editorのツールメニューで、参照設定を選び、
Microsoft VBScript Regular Expressions 5.5
にチェックしてください。

あとは、こんな感じで。

Dim s As String
Dim r As RegExp
Dim m As Match

s = "あいうえおかきki99seks98くけこさし"
Set r = New RegExp
r.Pattern = "[^A-Za-z0-9]([A-Za-z0-9]{10})[^A-Za-z0-9]"
r.Global = True
For Each m In r.Execute(s)
Debug.Print m.SubMatches(0)
Next

お礼

完璧に望み通りの物ができました。
感謝します、ありがとうございました。