统计区域某单元格数量,直接用COUNTIF,非要用VBA的话···········...下边这个是个计数函数,用法就是在单元格内直接写=计数(区域)就好,巨具体要什么代码,参照下吧。
Function 计数(rng As Range) As String
Dim arr As Range, i As Byte, arr1, arr2, mystr As String
With CreateObject("scripting.dictionary")
For Each cell In rng
.Item(cell.Value) = .Item(cell.Value) + 1
Next cell
arr1 = .keys
arr2 = .items
For i = 0 To UBound(arr2)
mystr = mystr & arr1(i) & arr2(i) & ","
Next
End With
计数 = Left(mystr, Len(mystr) - 1)
End Function
温馨提示:答案为网友推荐,仅供参考