如果在双击时合并单元格，则标记excel VBA上的单元格。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    '检查目标单元格是否为合并单元格
    If Target.MergeCells Then
        '取消双击事件的默认行为
        Cancel = True
        
        '合并单元格
        Target.Merge
        
        '标记单元格
        Target.Interior.Color = RGB(255, 0, 0) '将单元格背景色设置为红色
    End If
End Sub