右键点工作表1标签，选查看代码，把下面这段贴进VBA窗口：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Sheet2.Activate
End Sub
然后右键工作表2标签，也选查看代码，贴上这段：
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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Sheet2.Activate
End Sub
然后右键工作表2标签，也选查看代码，贴上这段：
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