单列数据提取重复项，并统计次数

koala219

恳请大神出手指导，帮助。

基本要求：   
1.单列数据提取重复项，并统计次数。  
   
2.Sheets(手工计算）中是我用EXCEL操作及公式做出来的。  
  A列出现次数，降序排列。
  B列用去除重复项的方法得到的不重复此昂
  CDE列，为B列第一次出现时，对应的CDE列信息。
  出现次数为1次的，即灰色部分，希望不要出现。
3.由于“元数据”是可变的，所以希望用VBA实现。

koala219

静候大神出现。

本人VBA幼儿园水平，根据理解用字典可以实现，耗时少，但我不会。

毛利的乖乖熊

字典最基本的功能之一，楼主可以随便搜百度或者论坛里应该都有

不知道为什么

[quote]koala219 发表于 2018-10-1 21:09
静候大神出现。

本人VBA幼儿园水平，根据理解用字典可以实现，耗时少，但我不会。

这是。            

xiangbaoan

……………………

iwangyi

Sub cc()
Set d = CreateObject("scripting.dictionary")
Set dd = CreateObject("scripting.dictionary")
n = [a65536].End(3).Row
For Each Rng In Range("a2:a" & n)
If Not d.exists(Rng.Value) Then
d(Rng.Value) = 1
dd(Rng.Value) = Rng.Offset(, 1).Resize(, 3)
Else
d(Rng.Value) = d(Rng.Value) + 1
End If
Next
[f2].Resize(d.Count) = Application.Transpose(d.items)
[g2].Resize(d.Count) = Application.Transpose(d.keys)
[h2].Resize(d.Count, 3) = Application.Transpose(Application.Transpose(dd.items))
[f1:j1] = Array("序号", "股票代码", "股票简称", "异动信息", "异动时间")
End Sub

iwangyi

附件，请参考

iwangyi

用COUNT 统计次数，用ORDER BY 排序，用FIRST 取第一个记录，方法如下
Sub cc()
[f1:j1] = Array("重复次数", "股票代码", "股票简称", "异动信息", "异动时间")
Set cn = CreateObject("ADODB.CONNECTION")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
Sql = "SELECT count(股票代码),股票代码 from [原数据$] group by 股票代码 order by count(股票代码) desc"
Range("f2").CopyFromRecordset cn.Execute(Sql)
n = [g65536].End(3).Row
For Each dm In Range("g2:g" & n)
Sql = "select first(股票简称),first(异动信息),first(异动时间) from [原数据$] where 股票代码=" & dm & ""
dm.Offset(, 1).CopyFromRecordset cn.Execute(Sql)
Next
End Sub

iwangyi

用COUNT 统计次数，用ORDER BY 排序，用FIRST 取第一条记录，附件如下，请参考

koala219

非常感谢2位老师的回复！
分别用字典和ADO提我解答，收益匪浅！