C1に入っている値がA列の文面に何文字入っているか数えて、その隣のB列に数を入れたい。

【状況】
A列の2段目から調べたい値がたくさん入っています。
C1に検索したい「<p」の値を入れているという状況です。
（添付画像をご確認ください。）

下記までは対応できました。

Sub test()
  Dim RE, Match, Matches
  Dim strPat As String
  Dim strTest As String
  Dim strAns As String
    strTest = Range("A3").Value     '----検索される文字列
    Set RE = CreateObject("VBScript.RegExp")
    strPat = Range("C1").Value     '----検索するパターン
    With RE
        .Pattern = strPat     '----パターンを設定します
        .IgnoreCase = True '----大文字と小文字を区別するFalseか、しないTrueか
        .Global = True       '----文字列全体を検索するTrueか、しないFalseか
    End With
    Set Matches = RE.Execute(strTest)
    Range("C3").Value = Matches.Count & "個"

End Sub

ただ、これでは、A3のものを見て、<pが何個あるか、C3セルに記載するというものになってしまいます。
これをA列の二行目からのものを全て見て、同じ行のC列全てに個数が出てくるようにしたいです。

strTest = Range("A3").Value

下記をこのような【Range("A" & i)】表記にすればできると書いてあったので、変えたのですが、

strTest = Range("A" & i).Value

それではできませんでした。
どのようにすれば良いか分かりますでしょうか？

行動規範の内容に同意します

回答1件

一例です。 ※シートなどはちゃんと動作するオブジェクトに変えてください

vba
1With ActiveSheet
2  For i=1 to .UsedRange.Rows.Count
3    strTest = .Cells（i,1）Value
4    処理・・・
5    .Cells（i,3）.Value = Matches.Count & "個"
6  Next For
7End With