excel 2010 单元格A1-D1里有一些内容，双击A2-A13中随意一个单元格，自动填入A1里的内容。

Question

同样 如果 双击B2-B13中随意一个单元格，excel自动填写B2里的内容到 双击的单元格中。
或者不用双击的方式，其他比较方便的方式也可以，比如用键盘某个键触发。

Answer 1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Value = Range(CStr(Chr(Target.Column + 64)) & "1").Value
End Sub

用VBA，输入以上代码，实现双击后内容变为对应列的第一行的数据追问

到Z列 再往后就会出错呀。AA列就出错了

追答

你不是原数据只有4列么？。。。
我编的时候有点偷懒，没做Z列以后的判断

追问

四列的 只是打了个比方，那请问 Z列以后的要怎么做啊？谢谢，给您加分哦。

追答

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Value = Cells(1, Target.Column).Value
End Sub

通用的

Answer 2

分别对ABCD列设置数据有效性，设置数据有效性，来源分别选择A1，B1，C1，D1.
这样选中每个单元格，会有一个下拉菜单。只能选择A1，B1，C1，D1的值。

Answer 3

如图，设置！