如何在VBA中查找条件循环中的第一个和最后一个值

Sub FindFirstAndLastValue()
    Dim firstValue As Variant
    Dim lastValue As Variant
    Dim currentValue As Variant
    
    firstValue = 0
    lastValue = 0
    
    ' 假设要查找的值在A1:A10范围内
    For Each cell In Range("A1:A10")
        currentValue = cell.Value
        
        ' 判断当前值是否满足条件
        If currentValue = "条件" Then
            ' 如果firstValue还没有被赋值，则将当前值赋给firstValue
            If firstValue = 0 Then
                firstValue = currentValue
            End If
            
            ' 将当前值赋给lastValue，以便更新最后一个满足条件的值
            lastValue = currentValue
        End If
    Next cell
    
    ' 输出结果
    MsgBox "第一个满足条件的值为：" & firstValue & vbCrLf & "最后一个满足条件的值为：" & lastValue
End Sub