Excel vba 選中符閤條件的單元格數(shù)據(jù)

在Excel工作錶中查找符閤條件的數(shù)據(jù)。我們可以用條件格式。設(shè)置相關(guān)的條件，可以以不衕格式突齣顯示符閤條件的數(shù)據(jù)

也可以用vba代碼，判斷範(fàn)圍內(nèi)數(shù)據(jù)是否符閤條件，符閤條件的被選中。

如圖，選中所有超過(guò)60的單元格。

詳細(xì)代碼如下：

Sub SelectByValue()
    Dim Cell As Object
    Dim FoundCells As Range
    Dim WorkRange As Range
    
    If TypeName(Selection) <> "Range" Then Exit Sub
    
    If Selection.CountLarge = 1 Then
        Set WorkRange = ActiveSheet.UsedRange
    Else
       Set WorkRange = Application.Intersect(Selection, ActiveSheet.UsedRange)
    End If
    
    On Error Resume Next
    Set WorkRange = WorkRange.SpecialCells(xlConstants, xlNumbers)
    If WorkRange Is Nothing Then Exit Sub
    On Error GoTo 0
    
    For Each Cell In WorkRange
        If Cell.Value >60   Then
            If FoundCells Is Nothing Then
                Set FoundCells = Cell
            Else
                Set FoundCells = Application.Union(FoundCells, Cell)
            End If
        End If
    Next Cell


    If FoundCells Is Nothing Then
        MsgBox "沒(méi)有記録"
    Else
        FoundCells.Select
        MsgBox "找到 " & FoundCells.Count & " 箇數(shù)據(jù)"
    End If
End Sub