如何在VBA中用For Each循环批量创建ListObject列的Range对象？

你原来的代码失败核心原因是类型不匹配：range_name是字符串变量，你试图用Set给它分配Range对象，这在VBA里不允许；而且VBA没法直接通过字符串动态创建普通的对象变量名。

推荐用**字典（Dictionary）**来存储这些Range对象，这是最稳妥灵活的方式——用处理后的列名作为字典的键，对应的值就是该列的DataBodyRange，后续随时可以通过键调用对应的Range。

完整实现代码 #

Dim genTable As ListObject
Dim colHeader As Range
Dim rangeDict As Object
Dim rangeKey As String

Set genTable = test.ListObjects("hourly_data")
Set rangeDict = CreateObject("Scripting.Dictionary")

' 循环遍历所有表头列
For Each colHeader In genTable.HeaderRowRange
    ' 处理列名：去除空格并添加下划线，作为字典的键
    rangeKey = Replace(CStr(colHeader.Value), " ", "") & "_"
    
    ' 捕获空列（无DataBodyRange）的情况，避免报错
    On Error Resume Next
    Set rangeDict(rangeKey) = genTable.ListColumns(colHeader.Value).DataBodyRange
    On Error GoTo 0
Next

' 使用示例：调用原手动声明的U1 Net Load对应的Range
' Set u1_NetLoad = rangeDict("U1NetLoad_")
' 直接操作：rangeDict("U1NetLoad_").Value = 100

额外说明 #

• 加入On Error Resume Next是为了处理表格中某列无数据（DataBodyRange为Nothing）的场景，如果你需要严格校验空列，可以替换为If Not genTable.ListColumns(colHeader.Value).DataBodyRange Is Nothing Then的判断逻辑。
• 字典方式比手动声明变量更易维护，尤其是列数量多或者列名可能变动的情况。

不推荐的动态变量方式（仅供参考） #

如果非要通过字符串动态创建变量名，可以用Execute语句，但这种方式风险高（变量作用域受限、易因列名含非法字符报错），不建议使用：

Dim genTable As ListObject
Dim colHeader As Range
Dim rangeKey As String

Set genTable = test.ListObjects("hourly_data")

For Each colHeader In genTable.HeaderRowRange
    rangeKey = Replace(CStr(colHeader.Value), " ", "") & "_"
    Execute "Set " & rangeKey & " = genTable.ListColumns(""" & colHeader.Value & """).DataBodyRange"
Next

' 后续可直接使用u1_NetLoad这类变量

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