VBA多个表的合并单元格拆分

如果需要使用 VBA 对多个表格进行拆分合并单元格的操作，可以使用以下代码：

Sub SplitMergedCells()
    Dim ws As Worksheet
    Dim cell As Range
    Dim mergedArea As Range
    
    For Each ws In ThisWorkbook.Worksheets
        ws.Activate
        For Each cell In ws.Cells
            If cell.MergeCells Then
                Set mergedArea = cell.MergeArea
                mergedArea.UnMerge
            End If
        Next cell
    Next ws
End Sub

这段代码会遍历所有的工作表，对每个工作表中的合并单元格进行拆分操作。具体实现方法是，首先遍历所有单元格，判断单元格是否属于合并单元格，如果是，就获取合并单元格的区域，然后将其拆分为单个单元格。

需要注意的是，拆分合并单元格可能会导致表格的格式发生变化，需要根据实际情况进行调整。

如果需要对合并单元格进行拆分，并保留单元格数据，可以使用以下代码：

Sub SplitMergedCellsAndKeepData()
    Dim ws As Worksheet
    Dim cell As Range
    Dim mergedArea As Range
    Dim value As Variant
    
    For Each ws In ThisWorkbook.Worksheets
        ws.Activate
        For Each cell In ws.Cells
            If cell.MergeCells Then
                Set mergedArea = cell.MergeArea
                value = mergedArea.Value
                mergedArea.UnMerge
                mergedArea.Value = value
            End If
        Next cell
    Next ws
End Sub

这段代码的实现方法与前一个示例类似，区别在于在拆分合并单元格之前，先将合并单元格的值保存到一个变量中，然后再进行拆分操作，最后再将值赋回到拆分后的单元格中。这样可以保留原来合并单元格的数据。