如何在VBA中创建动态变量名满足工作表数据读取存储需求

注意：VBA 没有运行时动态声明带编号变量名的原生支持，强行生成变量定义需要操作代码库组件，风险高且无必要，推荐以下两种更简便可靠的实现方案

方案1：使用 Collection 集合存储列对象（完全匹配你存列对象的需求） #

不需要单独声明readColumn1、readColumn2这类变量，直接将每列对象存入集合，通过索引即可访问对应列，和你预期的使用效果完全一致：

Dim colReadColumns As New Collection
Dim i As Long, j As Long
Dim tempCol As Object

' 你的循环逻辑
For i = 1 To maxHorizont
    ' 读取第i列的逻辑，示例为直接引用工作表列对象
    Set tempCol = Sheets("你的工作表名称").Columns(i)
    ' 加入集合，后续访问 colReadColumns(i) 等价于你预想的 readColumn<i>
    colReadColumns.Add tempCol
Next i

' 示例：读取第3列第5行的单元格值
MsgBox colReadColumns(3).Cells(5).Value

方案2：使用二维数组存储全表数据（性能最优） #

如果你的核心需求是存储全表数据用于后续计算，直接读取整个数据区域到动态数组，比嵌套循环逐个读单元格效率高数十倍：

Dim dataArr As Variant
' 一行代码完成全表数据读取，数组大小自动匹配你的数据范围
dataArr = Sheets("你的工作表名称").Range("A1").Resize(maxVertic, maxHorizont).Value

' 示例：读取第3列第5行的单元格值，注意数组索引为 行在前、列在后
MsgBox dataArr(5, 3)

两种方案均为动态结构，会自动适配你统计的行列数，不会出现数据丢失问题。

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