vba批量将一个文件夹内的多个同格式的工作薄中的数据合并

批量合并数据，条件：①工作薄在一个文件夹内；②需合并的数据字段一样；③需合并的数据所在的区域起始行和列一致。

宽限条件：工作薄名可以不规则

Sub 文件合并()
    Dim Num As Long     'dim为定义参数
    Dim insert_row As Long
    Dim MyPath As String
    Dim MyName As String
    Dim Wb As Workbook   'dim被合并文件名
        
    Application.DisplayAlerts = False    '报警窗口不弹出
    
    insert_row = 1
    MyPath = "E:/数据1"
    MyName = Dir(MyPath & "/" & "*.xls")   'dir为依次寻找指定路径中的xls文件
    Num = 0
    
    Do While MyName <> ""
        If MyName <> ActiveWorkbook.Name Then
            Set Wb = Workbooks.Open(MyPath & "/" & MyName)   '打开符合要求的文件
            Num = Num + 1
            With Sheets("成交明细").Activate
                If Num = 1 Then
                    Range("A10", "L" & (Cells.SpecialCells(xlCellTypeLastCell).Row - 1)).Select   'Cells.