在一个范围内最频繁的词，忽略空白

我目前使用以下公式来查找范围中最常用的单词或数字：

=INDEX(E9:E18,MODE(MATCH(E9:E18,E9:E18,0))) 

但是，如果有空白单元格然后公式返回空白单元格作为模式。 我怎样才能修改这个find最常见的单词/数字忽略任何空白单元格？

非常感谢

Answer 1

尝试以下用户定义的function：

 Public Function MostFreq(rIn As Range) As Variant Dim c As Collection, r As Range, N As Long, How() Dim cc As Long, wf As WorksheetFunction Dim i As Long, Biggest As Long Set c = New Collection Set wf = Application.WorksheetFunction On Error Resume Next For Each r In rIn v = r.Text If v <> "" Then c.Add v, CStr(v) End If Next r On Error GoTo 0 cc = c.Count ReDim How(1 To cc) For i = 1 To cc How(i) = wf.CountIf(rIn, c.Item(i)) Next i Biggest = wf.Max(How) For i = 1 To cc If How(i) = Biggest Then MostFreq = c.Item(i) End If Next i End Function 

为了避免VBA，select一个单元格（比如A1 ）并input数组公式：

 =INDEX(E9:E18,MODE(IF((E9:E18<>"")*ISNA(MATCH(E9:E18,$B$1:$B1,0)),MATCH(E9:E18,E9:E18,0)))) 

数组公式必须使用Ctrl + Shift + Enterinput，而不仅仅是Enter键。

这里是一个例子：