Excel VBA利用结构化引用设置ListObject相邻列范围的实现与报错处理

原代码触发报错的核心是对ListObject.Range的用法存在认知偏差：

• ListObject.Range是无参数的内置属性，作用是返回整个结构化表的完整范围，它本身不支持传入结构化引用字符串作为参数来筛选子列范围
• 代码中写的"DataTypes[[ClassProperty]:[DataType]]"是Excel公式体系内的结构化引用语法，这套语法的解析能力属于工作表对象，不属于ListObject对象的范围属性，直接将该字符串作为参数传给不支持对应语法的方法，就会触发“无效的过程调用或参数”运行时报错。

以下两种写法稳定性最高，不会受表位置、工作表激活状态的影响，完全满足按列名取两列连续范围的需求：

写法1：通过列名索引拼接连续范围（推荐，无字符串解析兼容问题） #

该写法完全不依赖结构化引用的字符串解析，直接通过列名拿到列在表内的索引值，基于表的原生范围截取目标连续区域。哪怕后续表的位置移动、表内列的排序调整，只要列名不变就不会出现引用错误：

Dim DTTbl As ListObject
Dim rng As Range
Dim colStart As Long, colEnd As Long

' 绑定目标表对象，该逻辑和原代码保持一致
Set DTTbl = ThisWorkbook.Worksheets("DataTypes").ListObjects("DataTypes")

' 按列名获取两列在表内的索引值
colStart = DTTbl.ListColumns("ClassProperty").Index
colEnd = DTTbl.ListColumns("DataType").Index

' 基于表的完整范围，截取两列构成的连续区域（包含表头）
Set rng = DTTbl.Range.Offset(0, colStart - 1) _
         .Resize(DTTbl.Range.Rows.Count, colEnd - colStart + 1)

如果不需要包含表头、仅需要取数据行对应的范围，可将上述代码最后一行的DTTbl.Range替换为DTTbl.DataBodyRange；如果表当前没有任何数据行，需要加判断避免引用空值报错。

写法2：通过工作表Evaluate方法解析结构化引用 #

如果希望沿用结构化引用的字符串取范围，可以将字符串交给表所属工作表的Evaluate方法解析——该方法本身就支持将Excel公式、结构化引用字符串转换为实际的Range对象：

' 绑定表对象的逻辑同上
Set DTTbl = ThisWorkbook.Worksheets("DataTypes").ListObjects("DataTypes")
' 调用表所属工作表的Evaluate方法解析结构化引用，获取对应范围
Set rng = DTTbl.Parent.Evaluate("DataTypes[[ClassProperty]:[DataType]]")

注意：必须绑定表所属的工作表对象调用Evaluate方法，不要直接使用全局的Evaluate，否则当工作簿存在多个同名表/工作表时，很容易引用到错误的范围。

• 不要给ListObject.Range传入任何参数，该属性本身不需要入参，随意传参就会触发无效调用报错
• 当表处于无数据行的状态时，DataBodyRange会返回空值（Nothing），直接引用它的列范围会触发空值错误，建议提前加判断逻辑：

  If DTTbl.DataBodyRange Is Nothing Then
      ' 表无数据时的兜底处理
  End If
  

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