VBA遍历当前文件夹下多个工作簿的多张工作表，判断A列是否有合并单元格，有就拆分并自动填充，没有就略过，然后把处理后的多张表合并在一张表上

您可以使用以下VBA代码来遍历当前文件夹下的多个工作簿的多张工作表，并处理合并单元格的情况：

Sub 处理合并单元格并合并工作表()
    Dim MyPath As String
    Dim MyFile As String
    Dim WB As Workbook
    Dim WS As Worksheet
    Dim DestWS As Worksheet
    Dim LastRow As Long
    Dim MergedCell As Range
    
    '设置合并后的目标工作表
    Set DestWS = ThisWorkbook.Sheets.Add(After:= _
             ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    DestWS.Name = "合并结果"
    
    '获取当前文件夹路径
    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
                    '将处理后的工作表复制到目标工作表
                    .UsedRange.Copy Destination:=DestWS.Cells(DestWS.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
                End With
            Next WS
            WB.Close False '关闭工作簿，不保存更改
        End If
        MyFile = Dir
    Loop
    
    '恢复屏幕更新和事件处理，并选中合并结果工作表
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    DestWS.Select
End Sub

请注意，此代码会在当前工作簿中创建一个名为"合并结果"的新工作表，并将多个工作簿的所有工作表合并到该工作表中。在合并过程中，它会检查A列是否有合并单元格，如果有，则会将其展开并自动填充。

您只需将此代码复制到VBA编辑器中的模块中，并运行即可实现合并操作。在运行之前，请确保您保存了当前工作簿，并将其他要合并的工作簿放置在同一文件夹中。

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