excel宏中如何统计某一区域内某个单元格的个数
EXCEl宏中如何统计某一区域（该区域是由不同本文的单元格组成）某一个单元格的数量，并把这个数量提取出来，我别的语句中需要这个数量，谢谢！...
EXCEl宏中如何统计某一区域（该区域是由不同本文的单元格组成）某一个单元格的数量，并把这个数量提取出来，我别的语句中需要这个数量，谢谢！
展开
2个回答
展开全部
统计区域某单元格数量，直接用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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
