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

>>阅读原文<<