'用途:用于在当前sheet的B列的B1~B1000中查找大于100的数据 '作者:冯明亮 '日期:2010-01-28 Sub 查找超量程的值() For i = 1 To 1000 Range("B" & i).Select If Selection.Value > 100 Then MsgBox (i) End If Next i End Sub