示例代码
1、针对于静态数组演示
代码如下 | 复制代码 |
Sub Test1() Dim Arr(0 To 9) As Integer For i = 0 To 9 Arr(i) = i Next For i = 0 To 9 Debug.Print Arr(i) Next '上面会在立即窗口输出0、1、2、3、4、5、6、7、8、9 Erase Arr For i = 0 To 9 Debug.Print Arr(i) Next '上面会在立即窗口输出0、0、0、0、0、0、0、0、0、0 End Sub |
可以看到Erase语句会清理静态数组的值。
Vba清理数组
2、针对于动态数组演示
代码如下 | 复制代码 |
Sub Test2() Dim Arr() As Integer ReDim Arr(9) Debug.Print UBound(Arr) debug.Print Erase( Arr) Debug.Print UBound(Arr) '此处将会报错 '因为动态分配的内存已经被释放掉 End Sub |
可以看到Erase语句会释放我们对动态数组分配的内存。
原文来自:http://iofai.com/1305.html 感谢站长