多个excel文件合并,根据首列值进行反向拆分

Sub Merge()
'执行合并提示,防止误合并
If MsgBox("是否执行文件合并?" & vbNewLine & "执行过程中所有提示框请点击'是'" & vbNewLine & "如果未生成文件,请联系:xxx", vbYesNo, "合并文件说明") = vbNo Then Exit Sub If MsgBox("是否执行文件合并?"