'在循环中,如果需要清空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 '释放数组所用内存。