VBA中如何彻底清空动态Variant数组使其被IsEmpty判定为Empty？

先拆解下你之前操作的问题根源：

• Erase语句：Erase对动态Variant数组的作用只是释放数组内存、清空元素，但数组变量本身依然是个已初始化的数组类型变量（只是没分配元素），而IsEmpty()检查的是变量是否处于未初始化状态，所以自然返回False。
• ReDim处理：不管你把数组ReDim成多大（哪怕是0元素），数组对象依然存在，变量始终持有这个数组的引用，IsEmpty()还是会返回False。
• Set数组=Nothing：Variant数组不是对象类型，Set关键字仅用于对象（比如Worksheet、Range这类），给非对象变量用Set赋值Nothing必然触发类型不匹配错误，属于语法误用。

正确的解决方案 #

要让IsEmpty()返回True，核心是把Variant变量重置为未初始化的原始状态。对于动态Variant数组，直接给变量赋值Empty就可以实现：

Dim myArray As Variant
' 先初始化并使用数组
ReDim myArray(1 To 5)
myArray(1) = "测试内容"

' 关键步骤：重置数组变量到未初始化状态
myArray = Empty

' 验证结果
Debug.Print IsEmpty(myArray) ' 输出True

为什么这个方法有效？因为Variant变量的特性就是可以存储多种类型的值，当你给它赋值Empty时，就把它恢复到了最初未被赋值的状态，此时IsEmpty()自然会返回True。

补充说明：如果是模块级别声明的Variant数组，默认初始状态是Empty，但一旦你初始化过数组，就必须手动执行myArray = Empty来重置。

内容的提问来源于stack exchange，提问作者J R