Excel VBA编程：取消合并单元格

在Excel中，合并单元格是一种常见的操作，它可以将多个单元格合并成一个大的单元格。然而，在某些情况下，我们可能需要取消已经合并的单元格。本文将介绍如何使用Excel VBA编程取消合并单元格，并提供相应的源代码。

取消合并单元格的基本思路是将合并单元格拆分为原始的多个单元格。下面是一个简单的示例，演示了如何取消选择的合并单元格：

Sub 取消合并单元格()
    Dim mergedRange As Range
    Dim cell As Range
    
    ' 检查是否有选择的合并单元格
    If Selection.MergeCells Then
        ' 获取合并单元格的范围
        Set mergedRange = Selection.MergeArea
        
        ' 循环遍历合并单元格的每个单元格
        For Each cell In mergedRange
            ' 取消单元格的合并状态
            cell.UnMerge
        Next cell
    Else
        MsgBox "请选择一个合并单元格以取消合并。"
    End If
End Sub

在上述代码中，我们首先检查当前选择的单元格是否是合并单元格。如果是合并单元格，则获取合并单元格的范围。然后，使用For Each<