excel宏，判断两个单元格内容一至的VBA怎么写？
1个回答
展开全部
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换成需要的动作
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换成需要的动作
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
