其实只要一句就好了：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(1, 1) = ActiveCell.Value
End Sub
Cells(1,1)即A1单元格，ActiveCell.Value即当前选择的单元格的值。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 And (Target.Row >= 2 And Target.Row <= 7) Then
Range("A1") = Target.Value
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024