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

如果需要在拆分合并单元格的同时填充数据，可以使用以下代码：

Sub SplitMergedCellsAndFillData()
    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
                mergedArea.FillDown
            End If
        Next cell
    Next ws
End Sub

这段代码的实现方法与前一个示例类似，区别在于在拆分合并单元格并将值赋回到拆分后的单元格中之后，再使用 `FillDown` 方法填充单元格数据。这样可以确保拆分后的单元格中填充的数据与原来的合并单元格中的数据相同。

需要注意的是，在使用 `FillDown` 方法填充数据时，需要确保填充的数据范围是正确的，否则可能会导致填充错误。可以手动在 Excel 中执行一次填充操作，然后查看填充的范围，以确定正确的填充范围。