VBA中如何通过字符串变量动态生成自定义变量名？

你现在的需求是在循环里生成test1、test2这类动态命名的变量，而且没法用列表或集合来存储这些对象——但你的原代码有个关键问题：var_name是字符串类型，VBA不会把它自动解析成变量名，所以Set var_name = ...这行是无效的。下面给你两种完全适配需求的解决方案：

方案1：使用ExecuteGlobal动态生成代码（最直接匹配需求） #

这个方法会在运行时动态生成变量声明和赋值的代码，直接创建你想要的test1、test2这类全局变量，后续代码可以直接调用它们。

示例代码：

Sub CreateDynamicVariables()
    Dim n As Integer
    n = 3 ' 这里替换成用户定义的整数
    Dim i As Integer
    Dim var_declare As String
    Dim var_assign As String
    
    ' 先清空之前可能存在的同名变量（避免重复声明报错）
    On Error Resume Next
    For i = 1 To n
        ExecuteGlobal "Set test" & i & " = Nothing"
    Next i
    On Error GoTo 0
    
    ' 动态生成变量声明和赋值
    For i = 1 To n
        ' 声明全局变量（可替换为你需要的类型，比如Workbook/Worksheet）
        var_declare = "Global test" & i & " As Range"
        ExecuteGlobal var_declare
        
        ' 为变量赋值对应的Range对象
        var_assign = "Set test" & i & " = Range(Cells(1, 1), Cells(" & i * 2 & ", " & i + 1 & "))"
        ExecuteGlobal var_assign
    Next i
    
    ' 测试验证：弹出test1的区域地址
    MsgBox test1.Address ' 会显示$A$1:$B$2，符合预期
End Sub

注意事项： #

• ExecuteGlobal生成的是全局变量，在整个VBA项目的所有模块中都能访问；
• 重复运行前必须清空旧变量，否则会触发“变量重复声明”的错误；
• 如果n是用户输入的值，一定要做合法性校验（比如限制为正整数），避免注入非法代码。

方案2：利用工作簿命名范围（替代变量的轻量化思路） #

如果你不想用全局变量，也可以把每个对象绑定为工作簿的命名范围，通过命名范围的名称（比如test1）直接调用对应对象，效果和使用变量完全一致：

Sub CreateNamedRanges()
    Dim n As Integer
    n = 3 ' 替换成用户定义的整数
    Dim i As Integer
    Dim range_name As String
    
    ' 删除旧的同名命名范围（可选）
    On Error Resume Next
    For i = 1 To n
        ThisWorkbook.Names("test" & i).Delete
    Next i
    On Error GoTo 0
    
    ' 创建新的命名范围
    For i = 1 To n
        range_name = "test" & i
        ThisWorkbook.Names.Add _
            Name:=range_name, _
            RefersTo:=Range(Cells(1, 1), Cells(i * 2, i + 1))
    Next i
    
    ' 测试验证：调用test2对应的区域
    MsgBox Range("test2").Address ' 会显示$A$1:$C$4，符合预期
End Sub

优势： #

• 命名范围是工作簿级别的，保存文件后下次打开依然存在；
• 不需要担心变量作用域问题，直接用Range("testn")就能访问对应区域；
• 除了Range，也可以绑定其他对象类型（比如数组、公式）。

为什么你的原代码无法运行？ #

在VBA中，字符串变量（比如var_name）和对象变量是完全不同的类型——VBA不会自动把字符串"test1"解析成变量名，必须通过动态代码执行、命名范围这类特殊方法，才能实现“用字符串控制变量名”的需求。

内容的提问来源于stack exchange，提问作者Eugenio.Gastelum96