Question

现在，在你说之前 - 我已经阅读了几十个相似的主题，但找不到解决方案。我有一个动态Variant数组，必须完全清除，因此在IsEmpty检查期间它被视为空。我尝试了Erase，但IsEmpty仍然返回False。我不能ReDim它，因为数组是动态的。试图将整个数组设置为Nothing，但是在IsEmpty检查期间会抛出错误。

我做错了什么，怎样才能完全根除那个数组，所以IsEmpty会返回True？

Answer 1

您可以将关键字Empty指定给Variant变量。

Public Sub Hello()

    Dim vArray As Variant

    vArray = Array("a", "b", "c")

    Debug.Print IsEmpty(vArray) 'prints false

    vArray = Empty

    Debug.Print IsEmpty(vArray) 'prints true

End Sub

在VBA中，如何将Array设置为Empty？

1 个答案: