ExcelVBA双击时把单元格A1的值移动到双击的单元格

您可以使用以下VBA代码在双击单元格时将A1单元格的值移动到双击的单元格：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count = 1 Then ' 检查是否仅选中了一个单元格
        Target.Value = Range("A1").Value ' 将A1单元格的值赋给双击的单元格
        Cancel = True ' 取消默认的双击事件
    End If
End Sub

请将此代码放置在您希望应用此功能的工作表的代码模块中。