这个只能用VBA实现
alt+F11,打开vbe
左边点你要实现这个功能的页面,然后在右侧的代码区黏贴
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$H$1" Then Exit Sub
Cells(1, "h") = Target.Value
End Sub
就可以实现了(PS:贴过去可能变一行了,弄成这里显示的样子就行了。
温馨提示:答案为网友推荐,仅供参考