网上当的代码,还真管用
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, j As Integer
For i = 1 To 500
For j = 1 To 500
If Cells(i, j) = "报错" Then
MsgBox "主淫!这里还有报错哦!", vbOKOnly + vbCritical, "警告!"
Cells(i, j).Select
End If
Next j
Next i
End Sub