如何用VBA判断活动单元格在命名表Table1中的cells(2,2)位置？

核心逻辑说明 #

要判断当前活动单元格是否是Table1的第2行第2列数据单元格（即你提到的B3），并同步值到目标表对应位置，通过Excel结构化表（ListObject）的属性实现会比直接引用单元格地址更稳定，能适配表范围变动的情况。

手动执行的同步代码 #

将以下代码插入到标准模块中，运行即可完成判断与同步：

Sub CheckAndSyncTableCell()
    Dim sourceTable As ListObject
    Dim targetTable As ListObject
    
    ' 替换为你的目标工作表和目标表名称
    Set sourceTable = ThisWorkbook.Sheets("Sheet1").ListObjects("Table1")
    Set targetTable = ThisWorkbook.Sheets("目标工作表").ListObjects("目标表名")
    
    ' 验证活动单元格是否为源表指定位置
    If ActiveCell.Cells.Count = 1 Then
        ' 先确认活动单元格属于源表数据区域
        If Not Intersect(ActiveCell, sourceTable.DataBodyRange) Is Nothing Then
            ' 判断相对行列号是否为(2,2)
            If ActiveCell.Row - sourceTable.DataBodyRange.Row + 1 = 2 And _
               ActiveCell.Column - sourceTable.DataBodyRange.Column + 1 = 2 Then
               
                ' 同步值到目标表对应位置
                targetTable.DataBodyRange.Cells(2, 2).Value = ActiveCell.Value
                MsgBox "值已同步完成"
            End If
        End If
    End If
End Sub

自动触发的同步方案 #

如果需要选中目标单元格时自动同步，可将代码放到Sheet1的代码模块中（右键Sheet1标签→查看代码）：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sourceTable As ListObject
    Dim targetTable As ListObject
    
    Set sourceTable = Me.ListObjects("Table1")
    Set targetTable = ThisWorkbook.Sheets("目标工作表").ListObjects("目标表名")
    
    ' 仅处理单个单元格选中的情况
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, sourceTable.DataBodyRange) Is Nothing Then
            ' 匹配指定的相对行列位置
            If Target.Row - sourceTable.DataBodyRange.Row + 1 = 2 And _
               Target.Column - sourceTable.DataBodyRange.Column + 1 = 2 Then
               
                targetTable.DataBodyRange.Cells(2, 2).Value = Target.Value
            End If
        End If
    End If
End Sub

关键细节提示 #

• ListObjects是Excel对结构化表的官方操作对象，表范围变化时会自动更新，比固定单元格地址更可靠。
• DataBodyRange代表表的数据区域（不含表头），所以Cells(2,2)对应你所说的B3单元格。
• 先判断活动单元格是否在源表范围内，再匹配相对行列号，可避免无关操作触发同步。

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