新建一个模块，将下面代码复制到模块中。用法：在某个单元格输入 1、 如果不需要小于某个数的条件，就直接输入 =（A1:A200）
2、如果要小于某个数 如70，就这样输入 =（A1:A200,70）跟自带函数一样用就好了。统计区域你自己改下。还是不会就下载附近看看。
Function JiShu(Rng As Range, Optional V As Variant) As Long Dim R As Range Application.ScreenUpdating = False If IsMissing(V) Then For Each R In Rng If R.Interior.Color = 255 Then JiShu = JiShu + 1 Next Else For Each R In Rng If R.Interior.Color = 255 And R.Offset(0, 1) < V Then JiShu = JiShu + 1 Next End If Application.ScreenUpdating = TrueEnd Function
