双击单元格可将单元格内容返回到另一个单元格（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”，而不是文本“ Completed”。

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