如何阻止选中合并与非合并单元格组合区域时执行ClearContents操作

需要处理的核心问题：合并单元格会被拆分成单个单元格计数，导致原本选中一个合并区域却被判定为多个单元格。目标是阻止用户选中多个合并区域并清除内容。

现有VBA过程（仅判断选中单元格数量，无法识别合并区域）：

Sub PreventDeleteMultipleMergedCells()
    
    If Selection.Count = 1 Then
        Selection.ClearContents
    Else
        MsgBox "You cannot delete the contents of multiple selected cells."
    End If
    
End Sub

调研得到一个计算合并区域数量的公共函数，但不知如何整合到上述过程中，实现「当实际选中的合并区域数量大于1时触发提示」：

Public Function MergedColumnsCount(c As Range) As Long
    MergedColumnCount = 0
    For i = 1 To c.Columns.Count
        MergeColumnSize = c(i).MergeArea.Columns.Count
        If MergeColumnSize > 1 Then
            i = i + MergeColumnSize - 1
        End If
        MergedColumnCount = MergedColumnCount + 1
    Next i
    MergedColumnsCount = MergedColumnCount
End Function

整合后的解决方案 #

首先修正原函数的变量名拼写错误（MergedColumnCount与函数名MergedColumnsCount不一致），并添加变量声明避免潜在错误，再将其整合到主过程中：

Option Explicit

Sub PreventDeleteMultipleMergedCells()
    Dim mergedAreaCount As Long
    
    ' 调用函数获取选中区域内的合并区域数量
    mergedAreaCount = MergedColumnsCount(Selection)
    
    If mergedAreaCount = 1 Then
        Selection.ClearContents
    Else
        MsgBox "不能删除多个选中的合并区域内容。"
    End If
End Sub

Public Function MergedColumnsCount(c As Range) As Long
    Dim mergedColumnCount As Long
    Dim i As Long
    Dim mergeColumnSize As Long
    
    mergedColumnCount = 0
    For i = 1 To c.Columns.Count
        mergeColumnSize = c(i).MergeArea.Columns.Count
        If mergeColumnSize > 1 Then
            ' 跳过已合并的列，避免重复计数
            i = i + mergeColumnSize - 1
        End If
        mergedColumnCount = mergedColumnCount + 1
    Next i
    MergedColumnsCount = mergedColumnCount
End Function

代码说明 #

1. Option Explicit：强制变量声明，避免因拼写错误导致的逻辑问题
2. 修正后的MergedColumnsCount函数：遍历选中区域的列，遇到合并单元格时跳过已合并的列，最终返回实际的合并区域数量
3. 主过程逻辑：不再判断选中的单元格总数，而是判断合并区域数量——仅当选中1个合并区域时允许清除内容，否则弹出提示

内容的提问来源于stack exchange，提问作者jmsmtrvn