VBA公共变量声明方法及ArrayList类变量未定义问题求助

针对你遇到的问题，从几个常见排查点入手解决：

1. 确认模块类型是否正确 #

只有标准模块里声明的Public变量才是全局作用域的。检查你的globalvars模块：

• 打开VBA编辑器，右键点击globalvars模块选择“属性”；
• 确认模块类型为“标准模块”（类模块、UserForm或工作表模块中的Public变量不具备全局作用域）。

2. 补全变量初始化逻辑 #

虽然报错是“未定义”，但全局变量仅声明未初始化也可能引发识别异常。确保在调用Example_Use_List之前，先执行变量初始化代码：

Sub Init_Global_Vars()
    ' 初始化ArrayList类型的全局变量
    Set lst2 = CreateObject("System.Collections.ArrayList")
    Set lst3 = CreateObject("System.Collections.ArrayList")
    ' 添加测试数据用于验证
    lst2.Add "测试值1"
    lst2.Add "测试值2"
    ' 初始化total变量
    total = 200
    ' 其余全局变量按需初始化
End Sub

先运行Init_Global_Vars，再执行Example_Use_List测试。

3. 排查名称冲突 #

检查所有模块（包括UserForm、其他标准模块），确保没有在其他地方声明同名的Private变量——局部Private变量会覆盖全局变量的作用域，导致当前子程序无法识别全局变量。

4. 修复VBA工程编译缓存问题 #

有时候VBA编辑器的缓存会导致变量识别异常，尝试：

• 点击VBA编辑器菜单的「调试」→「编译VBA工程」，修复潜在的编译错误；
• 关闭并重新打开Excel后再测试代码。

内容的提问来源于stack exchange，提问作者Simao Machado