如果有固定范围 可以通过筛选的方法 点击"排序和筛选"—>"数字筛选” —>大于 将超出范围的数据筛选出后 删除即可
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2016-09-26
Sub delete()
Dim s As Double, m As Double, rg As Range
m = Val(InputBox("大数")) '需要大于的数
s = Val(InputBox("小数")) '需要小于的数
For Each rg In Range("a1:c10") '选择区域
If rg < s Or rg > m Then
rg.ClearContents
End If
Next
End Sub追问
Dim s As Double, m As Double, rg As Range
m = Val(InputBox("大数")) '需要大于的数
s = Val(InputBox("小数")) '需要小于的数
For Each rg In Range("a1:c10") '选择区域
If rg < s Or rg > m Then
rg.ClearContents
End If
Next
End Sub追问
太高端，看不懂！还是谢谢你了！
追答一段小小的vba代码而已，一点都不高端，你只需这样做：
ALT+F11打开VBE编辑器，插入一个新模块，将代码复制-粘贴，点运行（按F5）就ok了。
哦，麻烦你了！我试试看！我用上面那位老兄的笨办法，筛选的！没分给你了！不要意思。
追答嗯，试试吧。有分没分都无所谓的。一同学习，共同进步！呵呵
本回答被网友采纳第2个回答 2014-03-05
用VBA可以
请提供具体数据和要求
请提供具体数据和要求
相似回答