VBA取消合并单元格

### 如何使用 VBA 取消 Excel 中的合并单元格

在处理 Excel 表格时，有时会遇到需要取消已合并单元格的情况。通过 VBA 脚本可以轻松实现这一操作。

#### 方法一：简单取消合并当前选定区域内的单元格
对于最基础的需求——即仅需取消所选区域内所有单元格的合并状态而不做其他额外处理：

Sub UnmergeSelectedCells()
    Selection.UnMerge
End Sub

此段脚本适用于用户手动选取特定范围后执行宏命令来解除这些位置上的任何组合情况[^1]。

#### 方法二：遍历整个工作表寻找并拆分所有被合起来的部分
当目标是针对整张表格内所有的合并情况进行统一解除，则需要用到稍微复杂一点的方式来进行全面扫描与修复:

Sub UnmergeAllInSheet()
    Dim cell As Range
    
    Application.ScreenUpdating = False '关闭屏幕刷新提高效率
    On Error Resume Next               '忽略错误继续运行（防止因无合并项而报错）
    
    For Each cell In ActiveSheet.UsedRange
        If cell.MergeCells Then
            cell.UnMerge
        End If
    Next cell
    
    Application.ScreenUpdating = True  '恢复屏幕更新
End Sub

上述代码片段能够有效地定位每一个含有合并属性的单元格，并对其进行单独解绑动作；同时为了避免程序中途因为找不到可操作对象而出错设置了异常跳过机制[^2]。

#### 方法三：保持原内容不变的情况下解散指定列或行里的连体结构
如果希望不仅限于单纯地分开各部分还要确保原有文字信息得以妥善保存下来的话，下面这段更为细致化的解决方案或许能满足需求：

Sub UnmergeAndPreserveContent()
    Dim rng As Range, cel As Range
    Dim contentHolder As String
    
    Set rng = Selection '假设作用域为当前选择区
    contentHolder = ""
    
    For Each cel In rng.Cells
        If Not IsEmpty(cel.Value) And Len(Trim$(cel.Text)) > 0 Then
            contentHolder = contentHolder & "," & Trim$(cel.Text)
        End If
    Next cel
    
    With rng
        .UnMerge
        .FormulaR1C1 = Mid(contentHolder, 2) '去掉前置逗号再填充回去
    End With
End Sub

这里实现了先收集待处理区间内部非空白节点处的文字串接成一条记录，之后再按照常规流程打散布局的同时把之前累积的信息重新写入首个单元格之中[^3]。