问题如图：
用函数我知道怎么弄，直接用=COUNTIF(A4:A22,"*F*")/19就可以了，但是这些数据都是用vba产生的，所以用公式的话，只要一更新，公式就会不见。所以这样没用。现在只要求用VBA来实现这个效果。。就是求A4:A22单元格里F的个数再除以一个指定的数字19，得到我想要的结果，结果显示在A3里，A到J列都是求这样的结果。
用vba统计某个区域内的相同字符的个数，再进行计算，结果显示在单元格里。求懂编程的大神
答案:2 悬赏:60
解决时间 2021-03-13 09:03
- 提问者网友：浪子生来ˇ性放荡²↘
- 2021-03-12 12:37
最佳答案
- 二级知识专家网友：零负荷的放任
- 2021-03-12 14:15
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
全部回答
- 1楼网友：你好陌生人
- 2021-03-12 14:23
虽然我很聪明，但这么说真的难到我了
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯