用函数我知道怎么弄,直接用=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
温馨提示:答案为网友推荐,仅供参考