不录代码，计算一列每个数据在一组数据中出现次数代码怎么写？

cys888

lightsnow

以下3种方法均可解决：

'第一种方法：直接创建法

       'Set d = CreateObject("scripting.dictionary")

'第二种方法：引用法

       '工具-引用-浏览-找到scrrun.dll-确定

'第三种方法：不调试代码，直接调用

   '在开发工具中，插入一个button模块，设置指定宏

lightsnow

Sumproduct,Countif函数的方法运算效率低，字典可达成目的，且明显提速
Sub model()
Dim d As New Dictionary
Dim row!, col!, str$
For col = 3 To 26   '数据载入
    For row = 11 To 1000
        str = Cells(row, col)
        If str = Empty Then Exit For
        If Not d.Exists(str) Then
            d.Add str, 1
        Else
            d(str) = d(str) + 1
        End If
    Next row
Next col

For row = 11 To 1000   '数据提取
    Cells(row, 2) = IIf(d(Cells(row, 1).Value) = Empty, 0, d(Cells(row, 1).Value))
Next row
MsgBox "ok"
End Sub

cys888

lightsnow 发表于 2020-7-15 20:21
Sumproduct,Countif函数的方法运算效率低，字典可达成目的，且明显提速
Sub model()
Dim d As New Dictio ...

运行提示：编译错误，用户定义类型未定义

cys888

lightsnow 发表于 2020-7-16 13:07
以下3种方法均可解决：
'第一种方法：直接创建法       'Set d = CreateObject("scripting.dictionary")  ...

非常感谢