在VBA中，如果你想要从一个数组中去掉一些数据，你可以使用以下几种方法：
1. 使用Filter函数：
```vba
filter过滤对象数组Sub FilterArray()
    Dim arr(1 To 10) As Integer
    Dim i As Integer
   
    ' 初始化数组
    For i = 1 To 10
        arr(i) = i
    Next i
   
    ' 使用Filter函数去掉所有偶数
    arr = Application.WorksheetFunction.Filter(arr, Array(True, False, False, True, False, False, True, False, False, True))
End Sub
```
这个例子中，我们创建了一个包含1到10的整数数组，然后使用Filter函数去掉了所有的偶数。Filter函数接受两个参数：第一个参数是要过滤的数组，第二个参数是一个逻辑数组，用来指定哪些元素应该保留。
2. 使用循环和条件语句：
如果你想要去掉数组中的特定元素，你也可以使用循环和条件语句。例如，下面的代码创建了一个数组，然后去掉了所有大于5的元素：
```vba
Sub RemoveElements()
    Dim arr(1 To 10) As Integer
    Dim i As Integer
    Dim newArr() As Integer
   
    ' 初始化数组
    For i = 1 To 10
        arr(i) = i
    Next i
   
    ' 使用循环和条件语句去掉所有大于5的元素
    ReDim newArr(1 To UBound(arr))
    For i = LBound(arr) To UBound(arr)
        If arr(i) <= 5 Then
            newArr(i) = arr(i)
        End If
    Next i
    arr = newArr
End Sub
```
在这个例子中，我们首先创建了一个包含1到10的整数数组，然后使用循环和条件语句去掉了所有大于5的元素。我们使用ReDim语句重新定义了新的数组大小，然后只复制了满足条件的元素到新的数组中。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。