VBAの正規表現について

Question

以下の構造の場合，どういったコードになるか
ご教授願えると幸いです。

既存ファイルを開く
  ↓
開いたファイルのA列を空白まで読み込む
  ↓
読み込んだ中に，特定の文字がある場合，
その文字のあった横一列を配列に入れる 
  ↓
新規ファイルを開く
  ↓
横一列が入った配列を新規ファイルに書き込み
  ↓
既存，新規ファイルを閉じる

特定の文字は,(tar)(cab)(msi)が検索パターンです（検索対象はA列です）。

正規表現自体をコードに落とした時の書き方自体があまり良く理解できていないので，
ここのご教授もして頂けると大変有難いです。

不足部分，質問があれば何でも仰ってください。

以上，よろしくお願いいたします。


Sub Sample()
    Dim RE, strPattern As String, i As Long, msg As String, reMatch
    Set RE = CreateObject("VBScript.RegExp")
    strPattern = "*.(t|c|m)(a|s)(r|b|i)$"
    With RE
        .Pattern = strPattern
        .IgnoreCase = True
        .Global = True
        For i = 1 To 10
            Set reMatch = .Execute(Cells(i, 1))
            If reMatch.Count > 0 Then
                msg = msg & reMatch(0).Value & vbCrLf
            End If
        Next i
    End With
    MsgBox msg
    Set reMatch = Nothing
    Set RE = Nothing
End Sub

上記のようなコードは，
エラーになります。
strPattern = "*.(t|c|m)(a|s)(r|b|i)$"
が構文としておかしいと考えているのですが，
直し方がよくわかりません。

Comments

[ynakano]

「正規表現を使うこと」自体が目的に含まれていますでしょうか？
それともあくまで特定の文字列を判別できればよいのでしょうか？

[piyotaka]

正規表現を使いたいです。
出来ない場合は，他の方法でとは考えてはいますが，
できるならば，正規表現を使いたいです。

[ynakano]

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

[diracpaul]

「特定の文字は,(tar)(cab)(msi)が検索パターンです（検索対象はA列です）」がわかりません。A列のセルを順次調べ、この中に「tar」あるいは「cab」「msi」だったらメッセージを表示するのでしょうか？
それとも、セル内の末尾が「.tar」「.cab」「.msi」か調べるのでしょうか？
文字列の検索ルールを具体的に書いてください。

Answer 1

「特定の文字は,(tar)(cab)(msi)が検索パターンです 」 という検索条件がわかりませんが、とりあえず、A列のセル値の末尾が 「.tar」「.cab」「.msi」だったらヒットするという条件した場合の正規表現は以下のようになります。
strPattern = "^.*(.tar|.cab|.msi)$"

正規表現の場合、「^$|.()」などの特殊文字以外については、そのまま続けて定義するとその文字が見つかったらヒットするとなります。例えば、 "^tar$"とかくと、文字列が"tar"であればヒットします。このときの^は先頭、$は最後を示します。
したがって、tarあるいはcabであれば、”^(tar|cab)$”となります。

.tarまたは.cabであれば、.を意味の無い文字コードと認識させるため、.の前に¥を追加し"^(¥.tar|¥.cab)$"とします。

その前に任意文字列を許す*.tarや*.cab等にしたいのであれば、正規表現として「.*」を指定します。.は、任意の1文字を表し、*は、それを0回以上を示します。

詳しい使い方については、VBAの正規表現に対する説明がWebにたくさんあるので検索してみてください。

Answer 2

正規表現を使わなくてもいけるような気がします。

まず、必ずセルA1に値が入っているという前提だと、

Range("a1").CurrentRegion.Select
Selection.Rows.Count
Selection.Columns.Count

で縦方向、横方向いくつまで値が入っているか最大値を取得できます。
（矩形範囲の選択となります。MsbBoxで表示させるなどして試してください。）

A1から縦方向最大値までループを回してセルA<n>の値を各々取得したら、instr関数で"tar"、"cab"、"msi"が含まれるか否かを判断できます。
文字列が含まれていない場合は0を返すので、それで判断できます。
検索文字列が拡張子のようなので、必ず文字列の末尾に来るとわかっているならright関数でもよいと思います。

検索文字列があった場合は、セルA<n>:<m><n>までをコピーし、新規ファイルのA<l>に貼り付け、でどうでしょうか。
当然貼り付けたら<l>の値をインクリメントします。

Comments

[ynakano]

補足します。
セルの最大値を数値で取得すると、横方向(A,B,C...)のセル番地の取り扱いが面倒になると思います。
その場合、rangeでセル番地を指定するのではなく、cellsで指定できます。
例えば"cells(3,1).select"とした場合、"A3"が選択されます。
上記のとおり、rangeとは縦横方向の指定が逆になりますが、ループで回す等する場合はセル番地がすべて数値で扱えるのでやりやすくなります。

Answer 3

まず簡単にコードを起こすには「マクロの記録」で一連の操作を
実施・コード化することをお勧めします。

その後で正規表現などのコードを組み込めば良いと思います。

正規表現はこちらが参考になります。
http://officetanaka.net/excel/vba/tips/tips38.htm

また、次のような処理順に書き換えると配列が必要なくなり、
大量データでも処理しやすいと思います。

既存ファイルを開く 
↓ 
新規ファイルを開く 
↓ 
<ループ開始>
開いたファイルのA列を空白まで読み込む 
↓ 
読み込んだ中に，特定の文字がある場合， 
その文字のあった横一列を新規ファイルに書き込み 
<ループ終了>
↓ 
既存，新規ファイルを閉じる