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