如何根据已有的列统计连续相同的数据出现的次数，并生成新的列

本人小白，请教一个问题，我通过SQL查询到颜色这列，如图，我想通过代码自动给我统计相同颜色连续出现的次数，然后我可以通过条件属性来标记低于3次的标红。
请问如果在帆软报表中实现，并插入统计结果到新的一列C中。
下面附上我在excel中用vba实现的代码
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For i = 1 To Sheets(1).[A65536].End(xlUp).Row                                  '对所有行进行循环

m = m + 1                                                                   '根据i进行循环累加，用于赋值

If Right(Sheet1.Cells(i, 14), 3) <> Right(Sheet1.Cells(i + 1, 14), 3) Then '第一行与第二行对比,不周的进行循环赋值

   For n = 1 To m
      Sheet1.Cells(i + 1 - n, 15) = m                                     '根据累加的值进行更新
   Next n
   m = 0                                                                   '当出现不同时，对m重新赋值，主要用到前面几行相同的更新

End If

Next i

End Sub