如何在双击前将单元格值复制到新工作表中的特定单元格？

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim newSheet As Worksheet
    Dim destCell As Range
    
    ' 检查双击的单元格是否为目标单元格
    If Target.Address = "$A$1" Then
        ' 创建新工作表
        Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        
        ' 设置目标单元格
        Set destCell = newSheet.Range("A1")
        
        ' 复制值到目标单元格
        destCell.Value = Target.Value
        
        ' 取消双击事件的默认操作
        Cancel = True
    End If
End Sub