字典统计求助

ccbbww

表中按e列名称出现的次数进行统计，统计结果放R列，例如e列333出现三次，R列统计为3

ykcbf1100

参与一下。

abc123281

Sub MyNZsz_38() '第38讲 应用数组与字典，实现单个条件汇总求和

Dim myarr

'将数据放入数组中

Sheets("38").Select

myarr = Range("E2:F" & Range("a65536").End(xlUp).Row)

'定义字典

Set myDic = CreateObject("Scripting.Dictionary")

'给字典赋值

For i = 1 To UBound(myarr, 1)
myDic(myarr(i, 1)) = myDic(myarr(i, 1)) + 1
Next

Range("Q:R").ClearContents

Range("Q1:R1") = Array("型号", "数量")

'将键和键值赋给数组，并通过装置函数显示在工作表中

myarr = Array(myDic.Keys, myDic.items)

Range("Q2").Resize(myDic.Count, 2) = Application.Transpose(myarr)

End Sub

ccbbww

ykcbf1100 发表于 2023-5-18 21:58
参与一下。

能程序提供文本吗

ccbbww

感谢指点，解决问题

ykcbf1100

ccbbww 发表于 2023-5-18 22:14
能程序提供文本吗

代码在附件中啊。
你是真小白啊，代码在哪都不知道。