【转载】EXCEL VBA 工作簿（表）合并拆分

一、合并工作簿 Sub 合并工作簿() Application.ScreenUpdating = False myfile = Dir(ThisWorkbook.Path & "\*.xls*")'Dir函数，获取同路径下待合并excel的文件名 Do While myfile <> "" '当文件
posted @ 2021-11-13 16:50  深海澜鲸  阅读(933)  评论(0)  编辑  收藏  举报