求助：如何用Excel VBA实现点击指定单元格时自动更新目标单元格内容

嗨，我完全懂你想要实现的效果啦——点击A43到A54里的任意单元格，就让B38显示这个单元格的内容，同时B39同步显示同一行B列的内容对吧？之前试的VBA没成功可能是触发逻辑或者范围设置没到位，我给你整理了一套靠谱的方案，跟着步骤来就行：

操作步骤： #

1. 打开Excel文件，右键点击你要实现这个功能的工作表标签（比如「Sheet1」），选择「查看代码」，就能打开VBA编辑器的工作表模块窗口。
2. 把下面的代码粘贴到这个窗口里：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 检查选中单元格是否在A43:A54范围内，且仅选中单个单元格
    If Not Intersect(Target, Me.Range("A43:A54")) Is Nothing And Target.Cells.Count = 1 Then
        ' 将选中的A列单元格内容赋值给B38
        Me.Range("B38").Value = Target.Value
        ' 将同一行B列的内容赋值给B39
        Me.Range("B39").Value = Target.Offset(0, 1).Value
    End If
End Sub

代码说明： #

• 这个代码用的是Worksheet_SelectionChange事件，只要你在这个工作表里切换选中的单元格，就会触发它。
• 开头的判断是为了确保只有点击A43到A54范围内的单个单元格时，才会执行更新操作，避免误触或者多选时出错。
• Target.Offset(0,1)的意思是：以选中的单元格为基准，横向偏移1列（也就是同一行的B列），这样就能精准拿到对应的内容。

注意事项： #

• 一定要把代码放在对应工作表的模块里，别放到通用的标准模块（比如Module1）里，不然事件不会生效哦。
• 保存文件的时候要选择「Excel 启用宏的工作簿（*.xlsm）」格式，普通的xlsx格式会丢失宏代码。

备注：内容来源于stack exchange，提问作者Dean Smith