Msgbox（）不会消失按下确定

我有这个代码popup一个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

问题是当If为True时 ，MsgBox显示，ActiveCell永远不会增加。 因此MsgBox被重新显示687次！