Excel vba查找在不在其中

在Excel VBA中，如果你想要查找某个值是否在一个范围或数组中，你可以使用`WorksheetFunction.CountIf()`函数或者是直接循环检查。下面是两种方法的示例：

1. **使用CountIf()函数**:

Sub FindValue()
    Dim targetValue As Variant
    targetValue = "YourTargetValue" ' 替换为你需要查找的值

    Dim dataRange As Range
    Set dataRange = Range("A1:D10") ' 替换为你数据所在的范围

    If Application.WorksheetFunction.CountIf(dataRange, targetValue) > 0 Then
        MsgBox "找到目标值!"
    Else
        MsgBox "未找到目标值."
    End If
End Sub

这里会统计指定范围（A1到D10）中是否存在给定的目标值。

2. **遍历循环检查**:

Sub FindValueLoop()
    Dim targetValue As Variant
    targetValue = "YourTargetValue"

    Dim dataRange As Range
    Set dataRange = Range("A1:D10")

    Dim found As Boolean
    found = False
    For Each cell In dataRange
        If cell.Value = targetValue Then
            found = True
            Exit For
        End If
    Next cell
    
    If found Then
        MsgBox "找到目标值!"
    Else
        MsgBox "未找到目标值."
    End If
End Sub

这个版本通过逐个检查每个单元格的值来寻找。