每个工作簿中的每个工作表，用VBA依次将合并单元格拆分并填充

好的，针对这个问题，我可以给出以下的 VBA 代码示例：

Sub SplitMergeCells()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim cell As Range
    Dim mergeArea As Range
    
    '遍历所有工作簿
    For Each wb In Workbooks
        '遍历所有工作表
        For Each ws In wb.Worksheets
            '遍历所有合并单元格
            For Each mergeArea In ws.UsedRange.MergeArea.Cells
                '拆分合并单元格
                mergeArea.UnMerge
                
                '遍历拆分后的单元格，填充数据
                For Each cell In mergeArea
                    cell.Value = "填充数据"
                Next cell
            Next mergeArea
        Next ws
    Next wb
End Sub

这段代码会遍历所有工作簿中的所有工作表，对于每个工作表中的每个合并单元格，先将其拆分成单元格，然后遍历拆分后的每个单元格，填充指定的数据。

代码中的 "填充数据" 可以替换成你需要填充的实际数据。如果你需要将代码适配到不同的工作环境中，可能需要对代码做一些修改，比如修改填充数据的方式、修改遍历工作簿和工作表的方式等。希望这个代码示例能对你有所帮助。