VBA数组a循环将满足条件的数放入数组b中

在VBA（Visual Basic for Applications）中，如果你想通过循环从数组a中筛选出满足特定条件的数值，并将它们放入另一个数组b中，你可以使用For...Next结构结合If语句。这里是一个简单的示例：

Sub FilterArray()
    ' 定义两个数组
    Dim a() As Variant ' 假设a是一个动态大小的数组
    ' 假设b为空数组，需要先初始化
    Dim b() As Variant
    ReDim b(0 To 0) ' 初始化b为1维数组

    ' 假设我们要找的是大于10的数字
    Dim condition As Boolean
    Dim i As Long
    
    ' 遍历数组a
    For i = LBound(a) To UBound(a)
        condition = a(i) > 10 ' 检查当前元素是否满足条件
        
        ' 如果满足条件，则添加到数组b
        If condition Then
            ReDim Preserve b(LBound(b) + 1) ' 扩展数组b
            b(LBound(b)) = a(i)
        End If
    Next i
    
    ' 现在b数组只包含满足条件的值
End Sub

在这个例子中，`LBound()`和`UBound()`函数用于获取数组的下标边界，`ReDim Preserve`用于在不丢失现有数据的情况下调整数组的大小。