b列大于或者等于c列，则弹出提示按钮并终止程序

qiongmei6

我希望求得一个代码，在b5：c1000中，如果b大于或者等于c列，则弹出提示“第几行的数值大，请检查”的提示，并终止程序，如果b列小于c列则不做提示。

suntao2000

~~~~~~~~是这样？

jeff_ps2009

看下是不是这么个意思？？

Sub 对比()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "B").End(xlUp).Row '获取 B 列的最后非空单元格行数
    For i = 5 To lastRow '循环遍历 B 列和 C 列
        If Range("B" & i).Value >= Range("C" & i).Value Then '判断 "B"i 是否大于或等于 "C"i
            MsgBox "B" & i & "大于或等于C" & i & "请检查数据！", vbCritical, "错误提示,请注意！！！" '弹出提示框
            End '终止
        End If
    Next i
End Sub

gwjkkkkk

请参考。。。

qiongmei6

非常感谢以上三位师傅的回答，gwjkkkkk师傅，在运行您代码的时候发现一个问题，表格内所有的数据是b列小于c列，他就会提示后面的空白b列和c列是错误的，能否麻烦您再修改下。

gwjkkkkk

qiongmei6 发表于 2023-3-4 17:04
非常感谢以上三位师傅的回答，gwjkkkkk师傅，在运行您代码的时候发现一个问题，表格内所有的数据是b列小于c ...

加个判断
Option Explicit
Sub test()
Dim ar, i&
    With [b5:c1000]
        ar = .Value
        For i = 1 To UBound(ar)
            If ar(i, 1) <> "" Then
                If ar(i, 1) >= ar(i, 2) Then
                   MsgBox "第" & .Cells(i, 1).Row & "行的数值大，请检查": Exit Sub
                End If
            End If
        Next i
    End With
End Sub