Question

EXCEL实现用VBA统计某些单元格出现相同字符的个数。在线等，急

如图：

我要用VBA来实现这个效果，有十个甚至更多，而这些数据又都是动态的，会时时更新，所以需要用VBA来现象比较好。不要用函数，函数的我知道怎么做。急求大神！

Answer 1

只是统计有F字符的单元么？

追问

对，这就是举个例子而已。

追答

那我也就只找F对吧。

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