按O.K时，Msgbox（）不会消失

Question

我有这个代码，其中弹出一个msgbox通知一个重复的值。

问题是msgbox（）在点击“确定”时没有消失，代码卡住了。

Dim row As Integer 
Dim counter As Integer 

Range("c2").Activate 

Application.ScreenUpdating = False 

For counter = 0 To 688

If ActiveCell.Value = ActiveCell.Offset(1, 0).Value And ActiveCell.Offset(0, 2).Value = ActiveCell.Offset(1, 2).Value And ActiveCell.Offset(0, 3).Value = ActiveCell.Offset(1, 3).Value And ActiveCell.Offset(0, 9).Value = ActiveCell.Offset(1, 9).Value Then

MsgBox ("Found a duplicate")

Else ActiveCell.Offset(1, 0).Activate

End If

Next counter

Answer 1

问题是当如果 True 时，会显示MsgBox，而ActiveCell永远不会递增。因此，MsgBox重新显示687次！