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

可以使用以下VBA代码来实现这个任务：

Sub SplitMergedCells()

Dim ws As Worksheet
Dim rng As Range
Dim cell As Range

For Each ws In ActiveWorkbook.Worksheets
    For Each rng In ws.UsedRange
        If rng.MergeCells Then
            Set cell = rng.MergeArea.Cells(1)
            rng.MergeCells = False
            cell.Value = rng.Value
            cell.Select
            Selection.AutoFill Destination:=rng.Resize(, rng.Columns.Count)
        End If
    Next rng
Next ws

End Sub

这段代码会遍历每个工作簿中的每个工作表，然后检查每个单元格是否是合并单元格。如果是，它会将其拆分，并将单元格值放入合并区域的第一个单元格。然后，它会使用自动填充功能将值填充到合并区域中的所有单元格中。