如何清空数组中的值

Question

定义了一个数组，用来存储值 ，如何在第二次使用时，清空上一次存储的值呢？

Answer 1

1,
Dim i()
ReDim i(0)2,
Dim i()
Erase i

Answer 2

所谓第二次，我想你应该是在过程中，那你可以把这个数组定义在过程中做局部变量，这样过程再次运行时，数组就是空的了。再有的办法就是做一个循环来重刷这个数组中的值了，这里我们要多定义一个与数组同类型的临时变量，用它来赋值或清空数组比较简单明了：
Dim MyArray(1 to 20) As Date
Dim MyNull As Date
For I = 1 To 20
    MyArray(I) = MyNull
Next I

Answer 3

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   '释放数组所用内存。

Answer 4

定義數組
dim arr as varient
arr=split(string,",")释放数组內容
erase arr

Answer 5

Erase 语句      重新初始化大小固定的数组的元素，以及释放动态数组的存储空间。语法Erase arraylist所需的 arraylist 参数是一个或多个用逗号隔开的需要清除的数组变量。说明Erase 根据是固定大小（常规的）数组还是动态数组，来采取完全不同的行为。Erase 无需为固定大小的数组恢复内存。Erase 按下表来设置固定数组的元素：数组类型 Erase 对固定数组元素的影响 
固定数值数组 将每个元素设为 0。 
固定字符串数组（长度可变） 将每个元素设为零长度字符串 ("")。 
固定字符串数组（长度固定） 将每个元素设为 0。 
固定 Variant 数组 将每个元素设为 Empty。 
用户定义类型的数组 将每个元素作为单独的变量来设置。 
对象数组 将每个元素设为特定值 Nothing。 
Erase 释放动态数组所使用的内存。在下次引用该动态数组之前，程序必须使用 ReDim 语句来重新定义该数组变量的维数。

Answer 6

或者你可以考虑利用ZeroMemory解决问题