如何实现点击任意目标单元格自动将内容赋值到A15单元格？

要实现点击第2行A、B、C等单元格时，将内容自动同步到A15，用Excel的VBA事件就能搞定，具体步骤如下：

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧的「工程资源管理器」窗口里，双击你要实现功能的目标工作表（比如Sheet1）
3. 在右侧弹出的代码窗口中，粘贴以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 限定触发范围为第2行的A到C列，可根据需求修改列的范围
    If Target.Row = 2 And Target.Column >= 1 And Target.Column <= 3 Then
        ' 将选中单元格的内容赋值给A15
        Range("A15").Value = Target.Value
    End If
End Sub

代码说明 #

• Worksheet_SelectionChange是工作表的内置事件，只要选中的单元格发生变化就会触发
• 条件判断Target.Row = 2确保只对第2行的单元格生效，Target.Column >=1 And Target.Column <=3限定了A到C列，要是你需要扩展到更多列，把3改成对应列的数字就行（比如D列是4）
• 如果选中多个单元格，代码只会把第一个单元格的内容赋值给A15，要是需要处理多选场景，可以调整判断逻辑

注意事项 #

• 保存文件时必须选择「Excel 启用宏的工作簿（*.xlsm）」格式，不然宏会失效
• 启用宏时要确保文件来源安全，避免恶意宏风险

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