Excel-VBA定位数值0至100的单元格

应用场景

定位符合条件的单元格

知识要点

1：SpecialCells(xlCellTypeConstants, 1) 含有常量的单元格

2：On Error Resume Next 遇到错误时继续执行

Sub 定位0至100之外的单元格()

Dim Rng As Range, rngtemp As Range, Cell As Range, i As Long "声明变量

On Error Resume Next "防错，如果不存数值时会出错

Set Rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 1)

If Err = 1004 Then MsgBox "当前表没有数值。", 64, "提示": Exit Sub

For Each Cell In Rng "利用for next 循环遍历rng区域每个单元格

If Cell.Value > 0 Or Cell.Value < 100 Then "如果值在0~100之内

i = i 1 "累加变量，该变量等于符合条件的单元格个数

"不过变量i>1，那么将找到的单元格合并后并赋值给变量rngtemp

If i = 1 Then Set rngtemp = Cell Else Set rngtemp = Union(rngtemp, Cell)

End If

Next Cell

If i > 0 Then rngtemp.Select "如果有符合条件的单元格，则选择它

End Sub