合并多個Excel到一個Excel的Sheet 梁 栋 | 2020-2-17 16:17 | 1,568 | 0 | 杂谈 67 字 | 2 分钟 Sub Macro1() Dim MyPath$, MyName$, sh As Worksheet, sht As Worksheet, m& Set sh = ActiveSheet MyPath = ThisWorkbook.Path & "\" MyName = Dir(MyPath & "*.xls") Appli… 工具