Question

用vba统计某个区域内的相同字符的个数，再进行计算，结果显示在单元格里。求懂编程的大神

问题如图：

用函数我知道怎么弄，直接用=COUNTIF(A4:A22,"*F*")/19就可以了，但是这些数据都是用vba产生的，所以用公式的话，只要一更新，公式就会不见。所以这样没用。现在只要求用VBA来实现这个效果。。就是求A4:A22单元格里F的个数再除以一个指定的数字19，得到我想要的结果，结果显示在A3里，A到J列都是求这样的结果。

Answer 1

Public Sub 查找()
 
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