对于一行文本数据，选择出现次数最多的文本，并自动忽略空白单元格

狮子座小猪

06-12星期二	06-13星期三	06-14星期四	06-15星期五	06-16星期六	06-17星期日	06-18星期一	06-19星期二	06-20星期三	06-21星期四	06-22星期五	班次
常白班	常白班	常白班	常白班					常白班	常白班	常白班	#N/A
常白班	常白班		常白班	休息	休息	休息	常白班	常白班	常白班	常白班	#N/A
常白班	常白班	常白班	常白班	休息	休息	休息	常白班	常白班	常白班	常白班	常白班
常白班	常白班	常白班	常白班	休息	休息	休息	常白班	常白班	常白班	常白班	常白班
常白班	常白班	常白班	常白班	休息	休息	休息	常白班	常白班	常白班	常白班	常白班
常白班	常白班	常白班	常白班	休息	休息	休息	常白班	常白班	常白班	常白班	常白班

正常的话可以选择出来，但是如果有空白单元格公式就会出现错误：=INDEX(J4:AM4,MODE(MATCH(J4:AM4,J4:AM4,)))
如何忽略空白单元格，请高手指教！

狮子座小猪

苏小亓 发表于 2018-7-13 14:17
数组

谢谢你的解答，但是公式是错的，他只是选资了第一次出现的文本，如果用数组公式无法计算如果第一列是空白单元格则返回0

苏小亓

1. =INDIRECT(CHAR(64+MAX(IF(COUNTIF(A2:K2,A2:K2)=MAX(COUNTIF(A2:K2,A2:K2)),COLUMN(A2:K2),)))&ROW())

复制代码

数组

狮子座小猪

你好，谢谢你的回复，根据你提供的公式无法达成预期啊，他只选择了第一次出现的文本，不是出现最多次的，如果第一行为空则返回0

苏小亓

狮子座小猪 发表于 2018-7-13 15:46
你好，谢谢你的回复，根据你提供的公式无法达成预期啊，他只选择了第一次出现的文本，不是出现最多次的，如 ...

别忘了是数组公式，数组公式，数组公式。

狮子座小猪

苏小亓 发表于 2018-7-13 15:53
别忘了是数组公式，数组公式，数组公式。

恩，已经用数组了，不太明白64的用处，如果我多发插入几列，为什么会显示错误呢？请大侠指点迷津，，，，

苏小亓

狮子座小猪 发表于 2018-7-13 16:39
恩，已经用数组了，不太明白64的用处，如果我多发插入几列，为什么会显示错误呢？请大侠指点迷津，，，，

这样应该更看的懂吧

狮子座小猪

苏小亓 发表于 2018-7-14 09:18
这样应该更看的懂吧

恩，这样就完全没有问题了，大侠我想和你做朋友·····

cjc209

自定义函数
Function 字符次数最多与最少(Rng As Range, Optional cs = 1)
    Set d = CreateObject("Scripting.Dictionary")
    For Each r In Rng
        If Len(r.Value) > 0 Then
            d(r.Value) = d(r.Value) + 1
        End If
    Next
    For Each Z In d.keys
        k = k + 1
        If k = 1 Then
            tqz = Z: bjz = d(Z)
        Else
            If cs Then
                If d(Z) > bjz Then tqz = Z: bjz = d(Z)
            Else
                If d(Z) < bjz Then tqz = Z: bjz = d(Z)
            End If
        End If
    Next Z
    字符次数最多与最少 = tqz
End Function

c3109

苏小亓 发表于 2018-7-14 09:18
这样应该更看的懂吧

为什么COLUMN(A2:V2)，不应该是,COLUMN(A2:AD2)吗？