如何将VBA中固定目标区域改为表格，避免内容变更时调整代码？

直接用以下修改后的代码，就能实现表格行增减时自动适配范围，不用手动调整地址：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim tbl As ListObject
    ' 把Table1换成你实际的表格名称（在Excel表格设计选项卡可查看）
    Set tbl = Me.ListObjects("Table1")
    
    ' 默认先隐藏文本框
    TextBox2.Visible = False
    
    ' 检查表格是否有数据行（空表格时跳过判断）
    If Not tbl.DataBodyRange Is Nothing Then
        ' 判断选中单元格是否在表格的数据区域内
        If Not Intersect(Target, tbl.DataBodyRange) Is Nothing Then
            With TextBox2
                .Top = Target.Top
                .Left = Target.Offset(, 1).Left
                .Text = Target.Text
                .Visible = True
            End With
        End If
    End If
End Sub

关键说明： #

• 表格对象指定：Me.ListObjects("Table1")指向当前工作表中的表格，替换Table1为你的表格实际名称即可。
• 动态区域适配：tbl.DataBodyRange会自动跟随表格的行增减更新范围，完全替代原来的固定地址G4:I46。
• 空表格兼容：增加了Not tbl.DataBodyRange Is Nothing判断，避免表格为空时触发错误。
• 逻辑简化：先默认隐藏文本框，符合条件再显示，比原代码逻辑更简洁易懂。

额外情况处理 #

如果你的表格只需要监听其中某几列（比如原需求的G、H、I三列对应表格的第1-3列），可以用Union合并指定列的数据区域，代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim tbl As ListObject
    Dim targetColsRange As Range
    Set tbl = Me.ListObjects("Table1")
    
    TextBox2.Visible = False
    
    If Not tbl.DataBodyRange Is Nothing Then
        ' 合并表格第1、2、3列的数据区域，按需调整列索引
        Set targetColsRange = Union(tbl.ListColumns(1).DataBodyRange, _
                                   tbl.ListColumns(2).DataBodyRange, _
                                   tbl.ListColumns(3).DataBodyRange)
        
        If Not Intersect(Target, targetColsRange) Is Nothing Then
            With TextBox2
                .Top = Target.Top
                .Left = Target.Offset(, 1).Left
                .Text = Target.Text
                .Visible = True
            End With
        End If
    End If
End Sub

前置操作 #

在使用代码前，记得把原来的G4:I46区域转换成Excel表格：选中该区域，按Ctrl+T，勾选「我的表格有标题」（如果区域包含表头）即可。

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