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

显示全部楼层 · 2019-3-1 12:53:05

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

千问 · 2019-3-1 12:53:05

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

千问 · 2019-3-1 12:53:05

Public Sub aaa()Dim iRng As Range: Set iRng = Range("B" & Selection.Row)If iRng.ValueiRng.Offset(-1, 0).Value ThenMsgBox "不相同！"Exit SubElseMsgBox "相同！"End I

千问 · 2019-3-1 12:53:05

你这问题本身就有问题。给你一段代码，但我自己都觉得别扭。Sub mac1()i = ActiveCell.RowIf i = 1 Then Exit SubIf ActiveCellCells(i - 1, 2) Then Exit SubEnd Sub