假设你将数据放在A列
那么你可以在菜单栏的空白处右键单击,选中“控件工具箱”,点一下“控件工具箱”中的“命令按钮”,然后在任意单元格点击,即出现一个按钮,双击此按钮,跳转到宏编辑器,输入以下内容
x = Cells(1, 1) '存储临时数据
y = 0 '计重复次数
z = 0 '计数
For i = 2 To 16 '16改成总共行数
If (Cells(i, 1) = x And y < 3) Then
y = y + 1
Else
y = 0
z = z + 1
x = Cells(i, 1)
End If
Next
MsgBox z