excel宏，判断两个单元格内容一至的VBA怎么写？
最新回答
情不知所起
2024-11-04 02:20:20
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
东风软
2024-11-04 07:54:10
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换成需要的动作
贴心小棉袄
2024-11-04 06:13:11
Sub mac1()
i = ActiveCell.Row
If i = 1 Then Exit Sub
If ActiveCell <> Cells(i - 1, 2) Then Exit Sub
End Sub
热门标签
