EXCEL2019怎么得出以下所需要值

用vba完成：
Sub test()
Set d=CreateObject(“Scripting.Dictionary”)
For each cel in usedRange
d(cel.value)=d(cel.value)+1
Next
y=d.keys
t=d.items
s=“”
a=t(0)
For i=0 to Ubound(y)-1
For j=i+1 to Ubound(y)
If t(j)>a then
s= y(i)
a=t(i)
y(i)=y(j)
y(i)=t(j)
y(j)=s
t(j)=a
End if
next
Next
For i =0 to 4
MsgBox “值” & y(i) & “，次数：” & t(i)
Next
Msgbox
End sub

1. 在Excel中选中你要复制的单元格,按Ctrl+C复制. 2.打开... 如何把Excel表格中的内容复制到Word表格中 怎么复制excel表...