excel宏，判断两个单元格内容一至的VBA怎么写？

Question

用相对坐标，判断当前行B列与上面一行B列值是否相同，不相同则停止宏执行，怎么写？

Answer 1

以下为代码及详解：

Sub main()
Rng = Range("B" & Selection.Row)'定义变量rng为B列选中区域所在行
If Rng.Value <> Rng.Offset(-1, 0).Value Then'判断这个单元格的值与它上一个单元格的值是否一致
MsgBox "不相同！"'如果不一致，则弹出提示框“不相同”
Exit Sub'退出程序
Else
MsgBox "相同！"'如果一致，则弹框提示”相同“
End If
End Sub

Answer 2

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换成需要的动作本回答被提问者和网友采纳

Answer 3

你这问题本身就有问题。给你一段代码，但我自己都觉得别扭。

Sub mac1()
i = ActiveCell.Row
If i = 1 Then Exit Sub
If ActiveCell <> Cells(i - 1, 2) Then Exit Sub
End Sub