用函数我知道怎么弄，直接用=COUNTIF(A4:A22,"*F*")/19就可以了，但是这些数据都是用vba产生的，所以用公式的话，只要一更新，公式就会不见。所以这样没用。现在只要求用VBA来实现这个效果。。就是求A4:A22单元格里F的个数再除以一个指定的数字19，得到我想要的结果，结果显示在A3里，A到J列都是求这样的结果。
然后百度臭 煞 笔！我连发了两个问题它都给我屏蔽了。。。
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
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
温馨提示：答案为网友推荐，仅供参考
