在VBA中能否通过参数化方式调用x1、x2这类按序号命名的变量？

VBA原生不支持你示例中直接拼接变量名写xi来调用对应序号变量的写法，你可以通过以下两种方案实现相同的需求：

方案1：使用数组（最推荐） #

数组就是为了批量处理有序同类型变量设计的，改造成本极低，运行效率最高：

' 定义数组，下标从1开始匹配你原有的序号逻辑
Dim x(1 To 2) As String
x(1) = "Hello"
x(2) = "world"

Dim i As Integer
For i = 1 To UBound(x) ' UBound自动取数组最大下标，不用硬写数字
    Debug.Print x(i)
Next

如果变量数量不固定，可以用动态数组：

Dim x() As String
Dim n As Integer
n = 10 ' 可以是你业务里的动态值
ReDim x(1 To n)
' 后续赋值、循环逻辑和上面一致

方案2：使用字典（适配不想改动原有变量定义的场景） #

如果你已经写了大量x1/x2/x3的声明和赋值，不想整体改成数组，可以用字典存储序号和值的映射关系：

' 无需提前引用库，直接创建字典对象
Dim valDict As Object
Set valDict = CreateObject("Scripting.Dictionary")

' 把你已经赋值的变量存入字典
valDict.Add 1, x1
valDict.Add 2, x2
valDict.Add 3, x3
' 有多少个变量就加多少个

' 循环读取
Dim i As Integer
For i = 1 To valDict.Count
    Debug.Print valDict(i)
Next

补充说明：VBA中没有普通变量的动态名调用机制，部分偏方用CallByName或者Eval实现的写法兼容性极差、维护成本极高，完全不推荐使用。

内容的提问来源于stack exchange，提问作者Lorenzo D'Eleuterio