Erase arr(清空VBA数组)

'在循环中,如果需要清空VBA数组,可以用Erase方法来实现.

'该示例使用 Erase 语句重新初始化固定大小的数组中的元素，以及释放动态数组存储空间。

Dim NumArray(10) As Integer ' Integer 数组。

Dim StrVarArray(10) As String '变长的 String 数组。

Dim StrFixArray(10) As String * 10 '定长的 String 数组。

Dim VarArray(10) As Variant 'Variant 数组。

Dim DynamicArray() As Integer '动态数组。

ReDim DynamicArray(10) '分配存储空间。

Erase NumArray '将每个元素设为 0。

Erase StrVarArray '将每个元素设为 '零长度字符串 ("")。

Erase StrFixArray '将每个元素设为 0。

Erase VarArray '将每个元素设为 Empty。

Erase DynamicArray '释放数组所用内存。