VBA选择指定值之间的数组值

Sub SelectValuesBetween()
    Dim arr() As Integer
    Dim i As Integer
    Dim startValue As Integer
    Dim endValue As Integer
    Dim startIndex As Integer
    Dim endIndex As Integer
    
    ' 初始化数组
    arr = Array(10, 20, 30, 40, 50, 60, 70, 80, 90)
    
    ' 指定起始值和结束值
    startValue = 30
    endValue = 70
    
    ' 查找起始值和结束值的索引
    startIndex = -1
    endIndex = -1
    
    For i = LBound(arr) To UBound(arr)
        If arr(i) = startValue Then
            startIndex = i
        ElseIf arr(i) = endValue Then
            endIndex = i
        End If
        
        ' 如果两个索引都找到了，就退出循环
        If startIndex <> -1 And endIndex <> -1 Then
            Exit For
        End If
    Next i
    
    ' 检查是否找到了有效的索引范围
    If startIndex <> -1 And endIndex <> -1 And startIndex < endIndex Then
        ' 打印指定范围内的元素
        For i = startIndex To endIndex
            Debug.Print arr(i)
        Next i
    Else
        MsgBox "指定的起始值或结束值不存在于数组中。"
    End If
End Sub