如图：
我要用VBA来实现这个效果，有十个甚至更多，而这些数据又都是动态的，会时时更新，所以需要用VBA来现象比较好。不要用函数，函数的我知道怎么做。急求大神！
第1个回答 2015-07-19
只是统计有F字符的单元么？追问
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本回答被提问者采纳
对，这就是举个例子而已。
追答那我也就只找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本回答被提问者采纳
