假設你將數據放在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