將要合併的檔案copy到一個新資料夾（只有這些Excel，且若開啟某一檔案，資料就能看見——即不用點其他sheet），建一新Excel，也存到該資料夾。僅開啟該新Excel，按Alt+F11，點選單的插入，模組，貼上如下程式碼：

Sub Find()

Application.ScreenUpdating = False

Dim MyDir As String

MyDir = ThisWorkbook.Path & "\"

ChDrive Left(MyDir, 1) "find all the excel files

ChDir MyDir

Match = Dir$("")

Do

If Not LCase(Match) = LCase(ThisWorkbook.Name) Then

Workbooks.Open Match, 0 "open

ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1) "copy sheet

Windows(Match).Activate

ActiveWindow.Close

End If

Match = Dir$

Loop Until Len(Match) = 0

Application.ScreenUpdating = True

End Sub

在此介面之間按F5執行此宏，所有表格複製到一個Excel裡了。

注意：本操作只合並EXCEL中開啟時看到的SHEET。即想要合併哪個sheet,就要在哪個sheet開啟時點儲存。