VBA中实现COUNTIF(I2:$I500),I2类似功能

ychj526926 · 发表于 2018-7-12 15:22

各位大神，在VBA中怎么样才能实现函数 countif 计记录数据出现的次数，并再其他列显示。这种功能呢（表格数据比较大，VBA中用函数太慢啦）

以下附件为类似数据

ychj526926 · 发表于 2018-7-12 15:42

Sub test()
Dim d As Object, ar, i&
Set d = CreateObject("scripting.dictionary")
ar = Range("F2", [F65536].End(xlUp)).Value
For i = 1 To UBound(ar)
d(ar(i, 1)) = d(ar(i, 1)) + 1
ar(i, 1) = d(ar(i, 1))
Next
[G2].Resize(UBound(ar), 1) = ar
End Sub

已经实现该功能。。。

ychj526926 · 发表于 2019-6-23 12:01

ychj526926 发表于 2018-7-12 15:42
Sub test()
Dim d As Object, ar, i&
Set d = CreateObject("scripting.dictionary")

谢谢，，，

ychj526926 · 发表于 2024-4-8 23:14

此附件可以读取excel的数据

ychj526926 · 发表于 2024-4-8 23:15

添加32位excel读取数据的支持

ychj526926 · 发表于 2024-4-9 23:24

这个Excel功能更全

ychj526926 · 发表于 2024-4-11 22:59

更新了几个新的函数

ychj526926 · 发表于 2024-4-12 06:46

sql构建器具

ychj526926 · 发表于 2024-4-16 22:55

Vba访问sqlite3通用模块终于搞定

ychj526926 · 发表于 2024-4-24 21:41

32位excel和64位双支持

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

[已解决] VBA中实现COUNTIF(I2:$I500),I2类似功能

评分