问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

excel中统计出现次数最多。一列looo行表中填充o到9的自然数。用vBA统计重复次数最多的自然

发布网友 发布时间:2022-05-06 13:19

我来回答

1个回答

热心网友 时间:2023-10-09 17:22

代码如下:

Option Explicit

Sub test()
    Dim i As Long, mx As Long, tmp As Long, res As Long
    mx = 0
    For i = 0 To 9
        tmp = Application.WorksheetFunction.CountIf(Sheets("Sheet1").Range("A:A"), i)
        '代码是统计Sheet1表A列中出现最多的数,可以根据自己的需要更改Sheets("Sheet1").Range("A:A")就可以了
        If tmp > mx Then mx = tmp: res = i
    Next i
    MsgBox "出现最多的是:" & res & vbCrLf & "共出现次数:" & mx
End Sub

其实不用这么麻烦的,一个数组公式就可以搞定,如下图数组公式:

=MAX(COUNTIF(A:A,{0,1,2,3,4,5,6,7,8,9})) 然后同时按ctrl+shift+enter组合键结束公式编辑!

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
宜昌夷陵区丶西陵区哪个区最繁华 宜昌哪些地方租房子好 宜昌CBD中心商务区项目分段定位 宜昌哪个地段房子好 奥迪a6油箱盖按键在什么位置 奥迪a6汽车加油盖按钮在哪 奥迪a6油箱盖怎么开 奥迪a6油箱盖的开关在哪里 图文结合带你搞懂MySQL日志之Error Log(错误日志) 变电站电磁辐射安全标准 ...马自达车辆搭载创驰蓝天GVC系统技术的好处是什么? GVC是什么鬼?你们知道么? vba excel 按出现次数排序 EXCEL VBA 实现返回一列数据各项在数据中第几次出现 Excel 怎样用VBA统计重复次数 Excel 如何统计列表中的数字出现次数!(细则请看列题,谢谢) excel用VBA调取一列中出现三次以上的数据 excel中用VBA统计数字的次数。 如何用excel vba 实现一列数字中 连续出现次数最多? 诸位VBA大神,求一 excel VBA 程式。 输出条件下之行数据,并统计数字出现次数。 求助EXCEL VBA函数 统计某列尾行向上连续出现相同数值的次数 Excel使用VBA统计sheet1中的数字出现的次数。 利用Excels VBA算出正确数值出现之次数 excel vba:如何用vba显示数据出现次数 EXCEL使用VBA统计A列某数据出现的次数 华为手机在哪里更新版本 每天早上都有下面少量的黄色水出,怎么回事 早上起来下面来的给水似的有点黄是怎么回事? 下面出来就像黄色又有点红色怎么回事? 下面总是有点灰黄色的东西出来是怎么回事 下面流黄能 有异味 是怎么回事? 下面总是有黄色的东西是什么怎么回事啊 请教想用Excel Marco VBA实现查找同一列重复项对应另一列重复项出现的次数,谢谢先. 冰箱门关不严没吸力,该如何解决? 小财靠勤奋,大财靠天,这句非常有理? 获取财富靠什么?是靠挣钱加节俭吗? “小富靠勤,中富靠德,大富靠命”,这句话有没有道理? 小财靠勤,中财靠德,大财靠天!有这种说法,我懂了,努力没用!!! 邮政储蓄银行卡可以到建设银行的ATM机上取钱吗?手续费是多少? 10分请教一个问题:“小财靠勤,中财靠富,大财靠命”,请谈谈对这句话的理解,选最好的为最佳答案 青瓷里面王志文说的那句台词小财靠勤后两句是 邮政银行的卡可以在建设银行的自助取款机上取钱吗 美能达x300和镜头如何保养 邮政储蓄银行的卡能在建设银行自动取款机存款吗 “女子无才便是德”的下一句是什么? 邮政储蓄卡可以在建设银行的ATM上用吗? 请问谁知道有没有适合美能达X700的取景器的眼罩?型号是什么?要去哪里购买?谢谢! 小财靠智,大财靠德 建设银行能用邮政银行卡吗 大学生网恋调查报告 大财靠命,小财靠什么? 邮政储蓄卡可以在建设银行的ATM上用吗。存钱取钱什么的。