在vba中根据条件对数组进行切片

Sub SliceArrayByCondition()
    Dim originalArray() As Variant
    Dim slicedArray() As Variant
    Dim condition As String
    Dim i As Integer
    Dim j As Integer
    
    ' 假设原始数组为一维数组，包含10个元素
    originalArray = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
    
    ' 设置条件，例如只选择大于5的元素
    condition = "> 5"
    
    ' 遍历原始数组，根据条件筛选元素并添加到新的数组中
    j = 0
    For i = LBound(originalArray) To UBound(originalArray)
        If Evaluate(originalArray(i) & condition) Then
            ReDim Preserve slicedArray(j)
            slicedArray(j) = originalArray(i)
            j = j + 1
        End If
    Next i
    
    ' 输出切片后的数组
    For i = LBound(slicedArray) To UBound(slicedArray)
        Debug.Print slicedArray(i)
    Next i
End Sub