SpecialCells可以定位一个指定常量吗？

huys

亲们，SpecialCells可以定位一个指定常量吗？

比如定位所有值为99的单元格。

huys

定位到空单元格：
      Cells.SpecialCells(4).Select
定位到值为99的单元格呢？

准提部林

將99替換成錯誤值//
定位錯誤值//
替換回來

huys

准提部林 发表于 2022-11-29 21:49
將99替換成錯誤值//
定位錯誤值//
替換回來

这样替换的话会把包含了99的单元格的值都替换了，扩大了定位范围，结果不正确！

准提部林

huys 发表于 2022-11-30 08:42
这样替换的话会把包含了99的单元格的值都替换了，扩大了定位范围，结果不正确！

替換準則__完全比對
WITH ACTIVESHEET.USEDRANGE
         .REPLACE "99","#N/A",LOOKAT:=XLWHOLE
         ON ERROR RESUME NEXT  '略錯--防止範圍中沒有錯誤值
         定位--常數--錯誤值
         ON ERROR GOTO 0
         .REPLACE "#N/A","99",LOOKAT:=XLWHOLE
END WITH

lss001

huys 发表于 2022-11-30 08:42
这样替换的话会把包含了99的单元格的值都替换了，扩大了定位范围，结果不正确！

Sub 选择指定数值单元格()
    Dim sel As Range, cell As Range
    sValue = 99 '指定值
    Set Rng = ActiveSheet.UsedRange
    For Each cell In Rng
        If cell = sValue Then
            If sel Is Nothing Then
                Set sel = cell
            Else
                Set sel = Union(sel, cell)
            End If
        End If
    Next
    sel.Select
End Sub