[已解决]请教:请教统计数据出现的个数

海水鱼 · 发表于 2015-7-17 09:34

本帖最后由海水鱼于 2015-7-17 11:54 编辑

请看:附件，谢谢！

最佳答案

月排行榜 / 总排行榜

爱疯

2015-7-17 11:38

请教：数据统计出现的个数3.rar (16.97 KB, 下载次数: 9)

雪舞子 · 发表于 2015-7-17 10:02

Sub COUNTIF()
Dim arr, brr(), i&, j&, d As Object
Set d = CreateObject("scripting.dictionary")
arr = [i8].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For j = 1 To UBound(arr, 2)
For i = 2 To UBound(arr)
d(arr(i, j)) = d(arr(i, j)) + 1
Next
For i = 2 To UBound(arr)
brr(i - 1, j) = d(arr(i, j))
Next
d.RemoveAll
Next
[bc9:bv9999] = ""
[bc9].Resize(UBound(arr), UBound(arr, 2)) = brr
End Sub

复制代码

请教：数据统计出现的个数.rar (97.54 KB, 下载次数: 2)

爱疯 · 发表于 2015-7-17 10:09

Sub Click()
Dim A, B, i, j
A = [i8].CurrentRegion

For j = 1 To UBound(A, 2)
      '1）统计
      ReDim B(Application.Min(A) To Application.Max(A))
      For i = 2 To UBound(A)
         B(A(i, j)) = B(A(i, j)) + 1
      Next i

      '2）保存
      For i = 2 To UBound(A)
         A(i, j) = B(A(i, j))
      Next i
Next j

[ae8].CurrentRegion = ""
[ae8].Resize(i - 1, j - 1) = A
End Sub

请教：数据统计出现的个数2.rar (94.24 KB, 下载次数: 6)

海水鱼 · 发表于 2015-7-17 11:27

爱疯你好，（请教统计数据出现的个数）你帮忙写的宏，为什么AC，AD列不能有数字，请你在看看，最好是只中统计I9：AB1154区域中的数据，谢谢！

爱疯 · 发表于 2015-7-17 11:38

请教：数据统计出现的个数3.rar (16.97 KB, 下载次数: 9)

		自动登录	找回密码
密码			注册