VBA遍历当前文件夹下多个工作簿的多张工作表，依次判断工作表的A列是否有合并单元格，有合并单元格就拆分并且自动填充，无就略过，然后保存更改，保存表

以下是一个 VBA 代码示例，可以遍历当前文件夹下的多个工作簿的多张工作表，并依次判断工作表的 A 列是否有合并单元格。如果有，就拆分并自动填充；如果没有，则略过该工作表。然后保存更改并保存表。

Sub 处理合并单元格并保存表()
    Dim MyPath As String
    Dim MyFile As String
    Dim WB As Workbook
    Dim WS As Worksheet
    Dim LastRow As Long
    Dim MergedCell As Range
    
    '获取当前文件夹路径
    MyPath = ThisWorkbook.Path & "\"
    
    '关闭屏幕更新和事件处理，加快处理速度
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    '循环遍历当前文件夹下的所有工作簿
    MyFile = Dir(MyPath & "*.xlsx")
    Do While MyFile <> ""
        '排除当前工作簿
        If MyFile <> ThisWorkbook.Name Then
            '打开工作簿，并遍历工作表
            Set WB = Workbooks.Open(MyPath & MyFile)
            For Each WS In WB.Sheets
                With WS
                    '检查 A 列是否有合并单元格
                    For Each MergedCell In .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).MergeCells
                        '展开合并单元格并自动填充
                        MergedCell.MergeArea.Copy
                        MergedCell.PasteSpecial Paste:=xlPasteAll
                        Application.CutCopyMode = False
                    Next MergedCell
                End With
            Next WS
            '保存更改并关闭工作簿
            WB.Close SaveChanges:=True
        End If
        MyFile = Dir
    Loop
    
    '恢复屏幕更新和事件处理
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    
    MsgBox "处理完成并保存了所有工作簿的更改。"
End Sub

请将此代码复制到 VBA 编辑器中的模块中，并运行它即可实现遍历当前文件夹下的多个工作簿的多张工作表，依次判断工作表的 A 列是否有合并单元格，有则拆分并自动填充，无则略过。然后保存更改并关闭工作簿。

在运行之前，请确保您保存了当前工作簿，并将其他要处理的工作簿放置在同一文件夹中。

希望对您有帮助！如有其他问题，请随时提问。