Alt+F11打开vbe,插入模块,在模块里粘贴如下代码:
Function f%(r As Range)
Dim n%, i%
n = r.Count
For i = 1 To n
If r(i).Interior.ColorIndex <> xlNone And r(i).Offset(-1).Interior.ColorIndex <> xlNone Then
f = f + 1
End If
Next
End Function
退出vbe,在i29填公式:
=f(O29:Y29)
下拉
这么复杂的,可以使用vba宏代码实现。普通公式已不能满足了
OFFICE2013可以筛选带颜色的单元格,下面写个统计的公式,然后筛选
规则比较复杂,这个只能用VBA实现了