如何提取不重复值，并汇总，谢谢yeminqiang老师！

lhj323323 · 发表于 2016-7-26 19:48

本帖最后由 lhj323323 于 2016-7-26 21:51 编辑

老师：
上传的附件中，有写好的语句，可以实现从指定单元格区域提取不重复值，并统计出现次数
现在，我有个小小的修改需求：

想把单元格为空的统计结果清除掉，但不晓得如何修改代码，先谢谢各位老师了

汇总.rar (88.96 KB, 下载次数: 8)

快照1.png

wang-way · 发表于 2016-7-26 20:30

论坛已有很多例子随便一找就有

yeminqiang · 发表于 2016-7-26 20:30

汇总.rar (98.55 KB, 下载次数: 47)

182197315 · 发表于 2016-7-26 21:49

本帖最后由 182197315 于 2016-7-26 22:06 编辑

Sub 汇总()
Sheets(1).Range("A2:B65535").ClearContents
Dim i%, j%, k%, x%, arr(), brr(1 To 65535, 1 To 2)
Dim d As Object
Set d = CreateObject("scripting.dictionary")
arr = Sheets(2).Range("A1").CurrentRegion.Value
For i = 2 To UBound(arr)
For j = 2 To UBound(arr, 2)
      If arr(i, j) <> "" Then
         If Not d.exists(arr(i, j)) Then
            k = k + 1
            d(arr(i, j)) = k
            brr(k, 1) = arr(i, j)
            brr(k, 2) = 1
         Else
            x = d(arr(i, j))
            brr(x, 2) = brr(x, 2) + 1
         End If
      End If
Next
Next
Sheets(1).Range("A2").Resize(k, 2) = brr
End Sub

lhj323323 · 发表于 2016-7-26 21:51

yeminqiang 发表于 2016-7-26 20:30

谢谢yeminqiang老师！

原来是加arr(x, 1) <> "" ，之前真没有理解过，谢谢老师的点拨！

lhj323323 · 发表于 2016-7-26 21:53

182197315 发表于 2016-7-26 21:49
Sub 汇()
Sheets(1).Range("A2:B65535").ClearContents
Dim i%, j%, k%, x%, arr()

谢谢老师的帮助！

问题已解决了。

lhj323323 · 发表于 2016-7-26 21:54

wang-way 发表于 2016-7-26 20:30
论坛已有很多例子随便一找就有

谢谢老师

我就是不晓得，空格的表达方式。

kszcs · 发表于 2016-7-27 06:39

182197315 发表于 2016-7-26 21:49
Sub 汇总()
Sheets(1).Range("A2:B65535").ClearContents
Dim i%, j%, k%, x%, arr(), brr(1 To 65535, 1 ...

这个实现了所有股东的次数

182197315 · 发表于 2016-7-27 07:13

kszcs 发表于 2016-7-27 06:39
这个实现了所有股东的次数

不是你想要的结果吗？

kszcs · 发表于 2016-7-27 07:16

182197315 发表于 2016-7-27 07:13
不是你想要的结果吗？

就是这个结果。
谢谢

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

[已解决] 如何提取不重复值，并汇总，谢谢yeminqiang老师！

评分