双击单元格将单元格内容返回到另一个单元格（VBA）

Question

我希望能够双击单元格并将单元格值/文本返回到另一个单元格中。

到目前为止我的代码是：

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
If Intersect(Target, Range("E:P")) Is Nothing Then 
Else 
    ActiveCell.Copy Destination:=Sheets("Sheet1").Range("S13") 
End If 
End Sub 

这段代码的问题是，我想实际的单元格内容，不一定是数值。

例如，在单元格E12中，我有文本“已完成”，但是当我双击E12时，单元格S13中返回“0”而不是文本“已完成”。

Answer 1

我同意A.S.H“你原来的细胞含有一个公式”。

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
    If Not Intersect(Target, Range("E:P")) Is Nothing Then 
     If Target.Cells.Count = 1 then 
      Cancel = True 
      Sheets("Sheet1").Range("S13") = Target.Value 
     End If 
    End If 
End Sub 

Answer 2

这是行不通的吗？

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
    If Not Intersect(Target, Range("E:P")) Is Nothing Then 
     Cancel = True 
     Target.Copy Destination:=Sheets("Sheet1").Range("S13") 
    End If 
End Sub