用宏可以做。
Dim c As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Not c Is Nothing) Then
c.Value = Selection.Value
End If
Set c = Selection
End Sub
可以参考一下，几个关键点
声明全局变量
用selectionChange的事件触发
根据实际情况可以限定数据区域和要被填充的区域，不然会变成一直点点点，一直把值传给上一个点击的单元格。
要注意处理异常情况，因为selection有可能不是单元格
建议你给这些内容编号,然后建立一个编号对照数据表,表格完成后,用VLOOKUP借用即可实现
矛盾吧，你点击单元格时，光标不就在这个单元格上
做不到的。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024