VBA判断所在区域是否存在合并单元格

你可以使用 VBA 的 CurrentRegion 属性来获取当前选定单元格所在的区域，然后再通过判断区域内是否存在合并单元格来判断所在区域是否存在合并单元格。以下是一个示例代码：

Sub CheckMerge()
    Dim rng As Range
    Set rng = Selection.CurrentRegion
    If RangeHasMergedCells(rng) Then
        MsgBox "当前区域存在合并单元格！"
    Else
        MsgBox "当前区域不存在合并单元格。"
    End If
End Sub

Function RangeHasMergedCells(rng As Range) As Boolean
    Dim cell As Range
    For Each cell In rng
        If cell.MergeCells Then
            RangeHasMergedCells = True
            Exit Function
        End If
    Next cell
    RangeHasMergedCells = False
End Function

上述代码首先获取当前选定单元格所在的区域，然后调用一个名为 RangeHasMergedCells 的函数来判断该区域是否存在合并单元格。如果存在，就弹出一个消息框，显示“当前区域存在合并单元格！”；如果不存在，就弹出另一个消息框，显示“当前区域不存在合并单元格。”。