在VBA中，删除数组中的数据可以通过多种方式实现，具体取决于你的需求。以下是一些常见的方法：
1. 删除数组中的特定元素
如果你想删除数组中的特定元素，你可以使用以下代码：
```vba
Sub DeleteSpecificElement()
Dim arr() As Integer
arr = Array(1, 2, 3, 4, 5)
' 删除索引为2的元素
ReDim Preserve arr(1 To UBound(arr) 1)
' 输出结果
For i = LBound(arr) To UBound(arr)
Debug.Print arr(i)
Next i
End Sub
```
2. 删除数组中的所有元素
如果你想删除数组中的所有元素，你可以简单地将其重置为空数组：
```vba
Sub ClearArray()
Dim arr() As Integer
arr = Array(1, 2, 3, 4, 5)
' 清空数组
arr = Array()
' 输出结果
For i = LBound(arr) To UBound(arr)
Debug.Print arr(i)
Next i
End Sub
```
3. 删除数组中的多个连续元素
如果你想删除数组中的多个连续元素，你可以这样做：
```vba
Sub DeleteMultipleElements()
Dim arr() As Integer
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
' 删除索引为2到4的元素
ReDim Preserve arr(1 To UBound(arr) 3)
' 输出结果
For i = LBound(arr) To UBound(arr)
Debug.Print arr(i)
Next i
End Sub
```
注意：
`ReDim Preserve` 用于重新定义数组的大小，同时保留现有的元素。
`UBound` 和 `LBound` 函数分别返回数组的上界和下界。
希望这些信息能帮助你！有其他问题，随时提出。
