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

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

我的代码到目前为止是：

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

我同意ASH“你的原单元格包含一个公式”。

 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