第1个回答 推荐于2018-01-30
Public Sub aaa()
Dim iRng As Range: Set iRng = Range("B" & Selection.Row)
If iRng.Value <> iRng.Offset(-1, 0).Value Then
MsgBox "不相同!"
Exit Sub
Else
MsgBox "相同!"
End If
End Sub
----------
如果想加入其他动作,可以将“不相同”和“相同”的两个msgbox换成需要的动作本回答被提问者和网友采纳