如何删除表格内的特定数值？

　　【问题】

　　如：A列各单元格有数字，想删除单元格中的50~100之间的数值 ，如何实现？

　　【解答】

　　代码：

　　Dim n%, a As Range, rng As Range
　　n = [a65536].End(xlUp).Row
　　Set rng = Range("a1:a" & n)
　　For Each a In rng
　　If a >= 50 And a <= 100 Then a.Clear
　　Next a