水月居幸福遊記

上次遇到了同一個檔案中多個工作表合併到一個工作表裏，這次因為工作的關係又去找了多個不同的檔案，所有的工作表合併到同一個檔案中。 工作環境︰ Windows 10 M$ Office 2010 Sub CombineSheets() '活頁簿存放路徑，可自行修改存放路徑 Path = "D:\資料夾名稱\" Filename = Dir(Path & "*.xl*") '避免工作表名字相同，重新命名 i = 1 Do While Filename <> "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) ActiveSheet.Name = i i = i + 1 Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub 收工！

Excel 好像沒有檢查工作表是否存在的原生函式，所以，到網站上找了一個，在跑巨集的時侯可以用 Function sheetExists(sheetToFind As String) As Boolean     sheetExists = False     For Each Sheet In Worksheets         If sheetToFind = Sheet.Name Then             sheetExists = True             Exit Function         End If     Next Sheet End Function 收工！

假如你的工作表都長得一樣，都是從A1開始建立的，都在同一個檔案中，你可以新增一個巨集，幫你把所有的工作表合併到同一個工作表中。 Sub Combine()     Dim J As Integer       On Error Resume Next     Sheets(1).Select     Worksheets.Add     Sheets(1).Name = "Combine"     Sheets(2).Activate     Range("A1").EntireRow.Select     Selection.Copy Destination:=Sheets(1).Range("A1")       For J = 2 To Sheets.Count         Sheets(J).Activate         Range("A1").Select         Selection.CurrentRegion.Select         Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select         Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)     Next End Sub 檢視 》 巨集 》 檢視巨集 》 第一個Combine  》 執行 所有的資料全部都會合併到第一個工作表「Combine」裏面 如此就不用 [Ctrl] + [C] X [Ctrl] + [V] N 次了 收工！