EXCEL中如何在sheet1中双击一个单元格到sheet2中，然后在sheet2中任意一个单元格双击复制回到sheet1中

Question

EXCEL中如何在sheet1中双击一个单元格到sheet2中，然后在sheet2中任意一个单元格双击复制单元格里面的内容到sheet1原来那个单元格中。（不使用粘贴复制功能）高手帮解答下。。。。

Answer 1

对准工作表1标签击右键，选择“查看代码”，在弹出的VBA窗口贴下面代码
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Sheet2.Activate
End Sub
对准工作表2标签击右键，选择“查看代码”，在弹出的VBA窗口贴下面代码
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim V
On Error Resume Next
V = Target.Text
Cancel = True
Sheet1.Activate
Selection.Value = V
End Sub追问

谢谢，不过这样可以双击到工作表2里面了，可怎么才能实现在工作表2里面的任意单元格双击复制这个任意单元格里面的内容到开始的工作表1里面的那个单元格里面呢。。。

追答

我提供的代码第二段就是完成复制工作表2的单元格到工作表1的，请注意要按如下操作：
对准工作表2标签击右键，选择“查看代码”，在弹出的VBA窗口贴代码

追问

嗯。可以了。非常感谢，不过还是不能复制图形，比如说我在2中某一单元格里面划了一条直线。。文字是可以复制过去的。十分感谢。

追答

第二段代码换成下面的，包括了复制格式
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim V
On Error Resume Next
Target.Copy
Cancel = True
Sheet1.Activate
Selection.PasteSpecial xlPasteValues
Selection.PasteSpecial xlPasteFormats
End Sub

Answer 2

你这要写VBA代码了追问

我都没怎么接触个这个。不知道怎么弄，就想我要在2中任意一个单元格里面的内容复制到1中的的指定单元格里面，这俩都是双击实现的。谢谢