小伙伴们大家好，今天来商榷众数问题。啥是众数呢？它是指一组数据中出现次数最多的数值。Excel内置函数 MODE 和 MODE.MULT 不错粗疏帮咱们找到一组数据中出现次数最多阿谁数。若是有多个出现次数相易的数字，MODE函数只可找到先出现的阿谁，而MODE.MULT函数大约以数组的花样列出所罕有字。如下图所示：

图片正太 男同正太 男同

数字 6 和 9 出现次数是相易的，齐是5次。由于6是先出现的，是以MODE函数的成果独一6这一个数字。

图片

而MODE.MULT函数则会按先后规章阔别列出两个出现次数最多的数字。

图片

偶然咱们但愿找出一组文本数据中哪个文本出现次数最多，这两个内置函数就歇菜了。于是我就搞了一个自界说函数，帮大家粗疏处置这个问题。函数称号：CS函数参数：

图片

探花1、文本数据场地限制限制不错是多行多列。案例中咱们罗致了B12:D15区域。2、分隔符若是多个文本出现次数相易，函数也齐会摆列出来，并不错自界说分隔符。案例中咱们使用竖线算作分隔符，分隔符需要用英文输入法下的双引号引起来。还不知谈若何使用这个自界说函数？随着底下的圭臬来细目能学会。一、导入代码平直复制底下的代码到VBE剪辑器中，具体操作参见动图演示：

图片

干与VBE剪辑器的快捷键：ALT+F11， 若是按下快捷键无效，请按下FN键后再尝试。代码要在模块里才能奏效，因此需要先新建模块。代码如下：

Function CS(rng As Range， 分隔符 As String)Dim d As Object， arr， brr， crr， str As String， i As Long， j As Long， k As Long， n As LongSet d = CreateObject('scripting.dictionary')arr = rngFor i = 1 To UBound(arr)    For j = 1 To UBound(arr， 2)        If Not IsEmpty(arr(i， j)) Then            If d.exists(arr(i， j)) Then                d(arr(i， j)) = d(arr(i， j)) + 1            Else                d.Add arr(i， j)， 1            End If        End If    Next jNext ibrr = d.keyscrr = d.itemsFor n = 0 To d.Count - 1    If d(brr(n)) > k Then        k = d(brr(n))        str = brr(n)    ElseIf d(brr(n)) = k Then        str = str & 分隔符 & brr(n)    End IfNext nCS = strEnd Function

二、保存需要将责任簿保存为开动宏的责任簿，这么自界说函数代码不会丢失，便于函数后期的再次使用和革新。

图片

三、函数测试作念完前两个圭臬，就能像使用内置函数雷同使用这个自界说函数啦！这里咱们以下表为例，对函数进行测试。

图片

每个名目有15个评委，每个评委选出我方心目中的最好东谈主选，咫尺咱们需要统计每个名目得票数最多的东谈主。得票数相易的比肩表示，并用竖线分隔。请参见动图演示：

图片

公式：=cs(B3:P3，'|')ok， 函数测试没问题，不错宽解使用啦！咱们在平素责任中，若是某些问题无法用内置函数处置，或者用内置函数处置相称复杂，不妨用VBA代码我方尝试作念一个自界说函数，让责任愈加浅陋。Excel学员群的小伙伴不错在群里下载配套熟识文献商榷学习。但愿今天的共享对大家的责任有所匡助，咱们下期相遇！ 本站仅提供存储劳动，通盘本体均由用户发布，如发现存害或侵权本体，请点击举报。