标识重复数据出现次数的代码

weide_yang

A列中有N个数据格
要求用VBA实现：
在F列中标识出A列中重复数据出现的次数

此表中F列显示的是执行VBA代码后的效果。

恳请老师赐教，谢谢！

liulang0808

楼主的附件没有代码
统计重复的原则是什么，没有模拟结果
具体到底要解决什么问题？

^星^

工作簿1.zip (14.54 KB, 下载次数: 16)

2024-2-29 19:57 上传

点击文件名下载附件

weide_yang

谢谢^星^老师！就是这个效果。

sxbjzjf110

sby250

标识重复数据出现次数的代码 [[url=]修改[/url]]

gwjkkkkk

Option Explicit
Sub TEST5()
    Dim ar, i&, dic As Object
   
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = [A1].CurrentRegion.Value
    ar(1, 1) = "重复次数"
    For i = 2 To UBound(ar)
        dic(ar(i, 1)) = dic(ar(i, 1)) + 1
        ar(i, 1) = dic(ar(i, 1))
    Next i
   
    [H1].Resize(UBound(ar)) = ar
    Set dic = Nothing
    Beep
End Sub

gwjkkkkk

参与一下。。。