雙擊單元格將單元格內容返回到另一個單元格（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