用vba統計某個區域內的相同字符的個數，再進行計算，結果顯示在單元格裏。求懂編程的大神

Dim?CXrng?As?Range

Dim?i?As?Long,?L?As?Long

For?Each?CXrng?In?Range("a4:A"?&?Range("a10000").End(xlUp).Row)

If?CXrng.Value?<>?""?Then

i?=?i?+?1

If?CXrng.Value?Like?"*F*"?Then

L?=?L?+?1

End?If

End?If

Next

If?i?<>?0?Then

Range("a3").Value?=?L?/?i

End?If

End?Sub