如何统计指定列中出现数据的个数？

lyh5500 · 发表于 2017-11-7 13:13

本帖最后由 lyh5500 于 2017-11-7 13:15 编辑

sheet1中，F列，有许多的学校且是重复的，我想统计每个学校总共出现了好多次？把结果显示在SHEET2中，我做了个结果的例子。很菜的问题，但关键是我更菜。求教各位大虾！！！谢谢用函数也行，VBA也行

martinchen99 · 发表于 2017-11-7 13:35

如图，应该是楼主需要的结果？用字典就可以了
Sub test1()
  arr = Range("a1").CurrentRegion.Value
  Set dic = CreateObject("scripting.dictionary")
  For i = 2 To UBound(arr)
   dic(arr(i, 6)) = dic(arr(i, 6)) + 1
  Next i
  Sheets("sheet2").Cells.ClearContents
  Sheets("sheet2").Range("a2").Resize(dic.Count, 1) = Application.Transpose(dic.keys)
  Sheets("sheet2").Range("b2").Resize(dic.Count, 1) = Application.Transpose(dic.items)
  Sheets("sheet2").Range("a1").Resize(1, 2) = Array("学校名称", "出现次数")
  Set dic = Nothing
End Sub

liulang0808 · 发表于 2017-11-7 13:44

欢迎新朋友
给楼主点建议，可以对学校名称进行排序，然后进行“分类汇总”-计数，就可以统计出学校名重复的次数

lyh5500 · 发表于 2017-11-7 14:06

本帖最后由 lyh5500 于 2017-11-7 14:13 编辑

martinchen99 发表于 2017-11-7 13:35
如图，应该是楼主需要的结果？用字典就可以了
Sub test1()
arr = Range("a1").CurrentRegion.Value

非常感谢！！！！完全符合我的想法！！！还有，SHEET1中的数据不固定多少，甚至上万也有可能！
能在SHEET2做一个图标，到时只需要点一下图标即可，行不？
我复制了VBA，但不知道创建图标。谢谢！

lyh5500 · 发表于 2017-11-7 14:08

liulang0808 发表于 2017-11-7 13:44
欢迎新朋友
给楼主点建议，可以对学校名称进行排序，然后进行“分类汇总”-计数，就可以统计出学校名重复 ...

那样是行，但是没有“martinchen99”兄弟做的便捷，关键是我还要把这些统计出来的数据引用出来做其他用。
谢谢楼主的关心！

martinchen99 · 发表于 2017-11-7 14:12

lyh5500 发表于 2017-11-7 14:06
非常感谢！！！！完全符合我的想法！！！
能在SHEET2做一个图标，到时只需要点一下图标即可，行不？
我 ...

插入按钮，如图示就可以了。附件供参考！

lyh5500 · 发表于 2017-11-7 14:17

martinchen99 发表于 2017-11-7 14:12
插入按钮，如图示就可以了。附件供参考！

由衷感谢！！！！

liulang0808 · 发表于 2017-11-7 14:20

lyh5500 发表于 2017-11-7 14:08
那样是行，但是没有“martinchen99”兄弟做的便捷，关键是我还要把这些统计出来的数据引用出来做其他用。 ...

分类汇总后的数据，拷贝，然后选择性粘贴，排序提取汇总后的结果
这个方法方便以后处理类似数据，供参考

451054301 · 发表于 2017-11-7 14:20

自己验证了一下martinchen99的sub，能很好解决楼主的问题。
不过楼主还要看某个学校出现什么的话，可以在sheet1加入：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("f2:f74").Interior.ColorIndex = xlNone
If Application.Intersect(Target, Range("f2:f74")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Set Target = Target.Cells(1)
Dim rng As Range
For Each rng In Range("f2:f74")
If rng.Value = Target.Value Then rng.Interior.ColorIndex = 6
Next rng
End Sub
C:\迅雷下载\捕获.PNG

martinchen99 · 发表于 2017-11-7 14:24

http://club.excelhome.net/thread-1372345-1-1.html

上面的小工具也可以实现汇总的目的。还是楼上版主说的对，平常工作中可能还是常规的方法会更适用。VBA只是我们给我们多个解决方案而已！

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

[求助] 如何统计指定列中出现数据的个数？