ExcelVBA双击时把单元格A1的值移动到双击的单元格删除A1单元格下面的上移

您可以使用以下Excel VBA代码来实现您的需求：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Cancel = True ' 取消默认的双击编辑行为

        ' 将A1单元格的值移动到双击的单元格
        Target.Value = Range("A1").Value

        ' 删除A1单元格
        Range("A1").Delete xlShiftUp
    End If
End Sub

请将以上代码添加到您希望双击生效的工作表的代码窗口中（按下Alt + F11，然后在左侧项目窗格中找到该工作表）。然后，当您双击A1单元格时，它的值将被移动到您双击的单元格，并且A1单元格以下的单元格将上移。