VBA循环中如何按规则动态声明不同名称的Double类型变量

原代码的问题 #

你写的代码有两个核心错误：

• 重复声明变量a：首次声明为String类型，循环内又试图声明为Double数组，VBA不允许同作用域内重复声明同名变量
• VBA原生不支持直接通过拼接字符串的内容作为变量名执行Dim声明，无法通过这种方式动态生成指定名称的独立变量

推荐实现方案 #

方案1：二维数组（优先选择，性能最好） #

如果所有向量的长度一致，直接用二维数组是最简单的方案，不需要额外依赖，访问效率最高：

' 示例：10个向量，每个向量包含5个Double元素
Dim vectors(1 To 10, 1 To 5) As Double

' 调用第i个向量的第j个元素示例，i从1到10，j从1到5
vectors(3, 2) = 99.99

方案2：字典存储（支持不同长度向量，可按名称调用） #

如果每个向量的长度不固定，且你需要按vector_1这类名称直接调用，用Scripting.Dictionary即可完美满足需求，以下是无需提前添加引用的后期绑定写法：

' 创建字典对象
Dim vecDict As Object
Set vecDict = CreateObject("Scripting.Dictionary")

Dim i As Integer
For i = 1 To 10
    ' 可自定义每个向量的长度，示例为长度随i变化，你可以按需修改
    Dim tempVec() As Double
    ReDim tempVec(1 To i) As Double
    
    ' 写入字典，key为你需要的vector_xx格式名称
    vecDict.Add "vector_" & i, tempVec
Next i

' 调用示例：给vector_2的第1个元素赋值
vecDict("vector_2")(1) = 123.45
' 读取示例：获取vector_5的第3个元素
Dim val As Double
val = vecDict("vector_5")(3)

内容的提问来源于stack exchange，提问作者Miguel Gutiérrez de Antón