如何在vba中使用excel的定位功能

如下图所示，excel中可以使用定位功能快速地定位到满足定位条件的单元格区域。

当需要用vba遍历满足某些条件的所有单元格时，可以使用excel的定位功能先获取到单元格区域集合，然后再遍历，这样可以减少遍历的单元格范围。

range对象的SpecialCells方法可以实现excel的定位功能，它的返回值为满足定位条件的所有range对象。

以下是一段利用定位遍历所有单元格是数值的代码。

Sub QQ1722187970()
    Dim oRng As Range
    Dim oWK As Worksheet
    Set oWK = ActiveSheet
    Dim oCell As Range
    '返回所有是数值的单元格
    Set oRng = oWK.UsedRange.SpecialCells(xlCellTypeConstants, 1)
    For Each oCell In oRng
        '要执行的代码*******
    Next
End Sub