如何在VBA中引用表格内指定范围而非整张表或数据主体区域

实现代码 #

你可以根据自己的需求二选一：

方式1：固定单元格地址引用（适合C3:T23位置不会变动的场景） #

直接修改原有判断逻辑，指定具体单元格范围即可：

' 判断激活单元格是否落在Table2的C3:T23范围内
If Not Intersect(ActiveCell, Range("C3:T23"), [Table2]) Is Nothing Then

如果需要单独提取这个范围对象复用，可以这么写：

' 先定义目标范围，确保取到的是Table2范围内的C3:T23
Dim targetRng As Range
Set targetRng = Intersect([Table2].Parent.Range("C3:T23"), [Table2])

' 后续判断逻辑
If Not Intersect(ActiveCell, targetRng) Is Nothing Then

方式2：表格结构化引用（适合表格位置可能变动的场景） #

如果不想写死单元格地址，避免后续表格移动后代码失效，可以通过表格的行列索引指定范围：

Dim tbl As ListObject
' 请将下面的Sheets("你的工作表名")替换为Table2所在的实际工作表名称
Set tbl = Sheets("你的工作表名").ListObjects("Table2")
' 取表格第3行到第23行、第3列（C列）到第20列（T列）的范围
Dim targetRng As Range
Set targetRng = tbl.DataBodyRange.Offset(2).Resize(21, 18)

' 原有判断逻辑替换为
If Not Intersect(ActiveCell, targetRng) Is Nothing Then

注意事项 #

• 如果Table2不在当前激活的工作表，必须在Range("C3:T23")前补充对应的工作表对象，避免引用错位。
• 结构化引用的方式兼容性更强，后续如果表格整体移动、或者增减前几列/前几行，不需要手动修改硬编码的单元格地址。

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