判断某列中的数据是否是从小到大并且连续输入

需求:让A列中的数据必须为从小到大连续输入,否则就报错。

代码如下:

Sub Check()
Dim EndRow
Dim MyRng As Range

EndRow = Range(“A6500”).End(xlUp).Row
For r = 2 To EndRow – 1
Set MyRng = Range(“a” & r)
If MyRng.Value = “” Or MyRng.Value > MyRng.Offset(1, 0).Value Then MsgBox “不是升序”:: Exit For
Next r
If r = EndRow Then MsgBox “是升序”
End Sub

未经允许不得转载:飞鹰图表 » 判断某列中的数据是否是从小到大并且连续输入
分享到:

评论抢沙发

评论前必须登录!