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