在 VBA 中使用字符串变量设置变量名

Question

我必须在循环中创建许多变量，所以我需要创建通用变量名称（注意，为了我的代码，我不能只将我想要创建的对象附加到列表或集合中）

我想的代码看起来像这样（n 是用户定义的变量，它是一个整数）

Dim var_name As String

For i = 1 To n
    var_name = "test" & i
    Set var_name = Range(Cells(1, 1), Cells(i * 2, i))
Next i

我想获得这样的变量：

• test1 是从 A1 到 B2 的范围
• test2 的范围从 A1 到 C4
• test3 的范围从 A1 到 D6
• .... testn 的范围从 A1 到任何值

它们不一定是范围，我真正想要的是使用存储在另一个变量中的字符串来声明一个变量名

Answer 1

使用数组怎么样？

Dim Test()
ReDim Test(0)
...

当您收到新数据时，只需 ReDim 即可保留您的数组：

ReDim Preserve Test(UBound(Test)+1)
Test(UBound(Test)) = <new data>

我发现将数组的变量类型保留为默认 Variant 是最简单的方法，但这是个人喜好以及您如何使用该变量。例如，如果您将其发送到其他函数或 Sub xxx(Tst() as String) 那么您必须将其发送为 xxx(CStr(Test(i)) )，不太方便。