VBAのFindで*やら+やらの正規表現は使う方法を伺ってよろしいでしょうか？

Question

VBAで頼れる所がTeratailしか知らないため度々書き込み失礼いたします。
VBA - 文字列をVBAで見つける方法を知りたい。｜teratail
に書き込もうかとも思ったのですが違う事柄なので新規で書き込み失礼いたします。

今　excelで　37期（2021年）　との文字列を検索しようとしております。
そのため

：
    Set wb = Workbooks.Open(fname)
    With Worksheets("過年度のＡＤ")
        Worksheets("過年度のＡＤ").Select     ' 「全社支社利」のシートを選択
        
        Dim rng As Range
        Set rng = wb.Worksheets("過年度のＡＤ").Range("A6:Z6") _
            .Find((year - 1965) & "期")
：

とやっていたのですが見つからず　よく考えると
37期（2021年）
の所で↑が半角（か全角（か定まっていないと気が付きました……

そこで質問なのですが
Findで正規表現などを使用する方法を伺ってよろしいでしょうか？

ググってみたら
ワイルドカードを使って検索（Find メソッド） | ExcelWork.info
を参考に
上記

            .Find((year - 1965) & "期*")

としてもNothingなのです……

何か情報をお持ちな方はコメント頂けますと嬉しく思います。

Comments

[jinoji]

2021年は37期なのですか？
御社が何年創業なのか存じ上げないのですが、2021-1965 = 56 （ ≠ 37） です。

[jinoji]

むしろ .Find("期*" & year) としてみるとか。

[ma2hiro]

申し訳ございません。
期は会社バレが嫌だったので適当なので失礼しました。

Answer 1

Findメソッドを使うなら、?(任意の１文字)、*(任意の文字列)のワイルドカードが使えます。

        Dim rng As Range
        Set rng = wb.Worksheets("過年度のＡＤ").Range("A6:Z6") _
            .Find(what:=(year - 1965) & "期*", LookAt:=xlWhole)

上記で、「37期」の検索ワードで「37期（2021年）」もヒットします。

---

.Find((year - 1965) & "期*")

でもヒットするはずですが、ヒットしないとすると、下記のデバッグコードを埋め込んで、存在する検索ワードになっているか確認してみてください。

Debug.print (year - 1965) & "期*" 

Comments

[ma2hiro]

ありがとうございます。
, LookAt:=xlWhole)
を付けたらHITしました……　上記の働きを調べてみますっ

本当にありがとうございましたm(_ _)m

……
？？？
http://excelvba.pc-users.net/fol7/7_1.html
を見た所
```
xlWhole 全てが一致するセルを検索
```
となっているのですが省略した場合のデフォルトは違うのかと思ったけど結局
Range("A6:Z6")の範囲が違っていました…….Range("6:6")と6行全て選択とすれば良かったです

本当に大変失礼しました。

Answer 2

「VBA 正規表現」でぐぐるといろいろ出てくるようです