Excle 多个文档合并为一个 分多个sheet页

鼠标放在sheet页标签上邮件选择查看代码 出现 键入一下代码： Sub Find() Application.ScreenUpdating = False Dim MyDir As String MyDir = ThisWorkbook.Path & “” ChDrive Left(MyDir, 1) 'find all the excel files ChDir MyDir Match = D

>>阅读原文<<