如何将数字映射为变量名？寻求替代长Select-Case的高效方案

方法一：用 Dictionary 替代独立变量（最推荐） #

别折腾零散变量了，直接用Dictionary来存储数字与对应值的映射，完美适配你的场景，代码极简：

' 声明全局Dictionary（需在多个子过程访问时用）
Dim myVars As Object

Sub InitMyVars()
    ' 仅需初始化一次
    Set myVars = CreateObject("Scripting.Dictionary")
    ' 可选：预先添加所有数字键（也可省略，赋值时自动创建）
    ' myVars("100") = ""
    ' ... 其他数字键
End Sub

Sub WriteToMyVars(varNumber As String, val)
    ' 直接以数字为键赋值
    myVars(varNumber) = val
End Sub

' 读取值示例
Sub ReadMyVar()
    Dim targetValue
    targetValue = myVars("100")
    MsgBox targetValue
End Sub

不管有多少个数字，赋值逻辑都是一行代码，完全不用写几百个Case分支。后续修改、查找值也比零散变量好管理得多。

方法二：保留原有变量，通过类模块+CallByName赋值 #

如果你一定要保留MyVarName1、MyVarName2这类独立变量，可以把它们封装成类的属性，再通过CallByName实现字符串名赋值：

1. 插入一个类模块，命名为MyVarsClass，在类中声明所有变量为公共属性：

Public MyVarName1 As Variant
Public MyVarName2 As Variant
Public MyVarName3 As Variant
' ... 依次声明全部600个变量

2. 在标准模块中编写逻辑：

' 声明全局类实例
Dim myVars As New MyVarsClass

' 数字到变量名的映射数组
Dim varNameMap(600) As String
Sub InitVarMap()
    ' 初始化数字与变量名的对应关系
    varNameMap("100") = "MyVarName1"
    varNameMap("101") = "MyVarName2"
    varNameMap("102") = "MyVarName3"
    ' ... 完成所有数字的映射配置
End Sub

Sub WriteToMyVars(varNumber As String, val)
    ' 通过变量名字符串给类属性赋值
    CallByName myVars, varNameMap(varNumber), vbLet, val
End Sub

' 读取值示例
Sub ReadMyVar()
    MsgBox myVars.MyVarName1
End Sub

这种方法能实现你想要的“数组映射变量名赋值”，但仍需完成所有变量的属性声明和映射配置，不过比Select-Case结构更清爽，批量操作变量也更方便。

原思路无法直接实现的原因 #

VBA中普通模块级变量无法直接通过字符串名称访问赋值，因为VBA没有内置的“按变量名字符串寻址变量”的机制（硬要用API或动态代码实现会非常麻烦），所以你原代码里存变量名再赋值的思路走不通，必须通过上述两种方式绕开限制。

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